>>>>> "Lennart" == Lennart Staflin <[EMAIL PROTECTED]> writes:
Lennart> I have run into a problem creating packages at load time that
seems to
Lennart> be a CMUCL bug.
Lennart> CMUCL version 19a-release-20040728
Is this a debian version?
Lennart> Here is my test case:
Lennart> (in-package :cl-user)
Lennart> (EVAL-WHEN (COMPILE LOAD EVAL)
Lennart> (defun ensure-corba-package (name &key nicknames export)
Lennart> (let ((package (find-package name)))
Lennart> (unless package
Lennart> (setq package (make-package name :nicknames nicknames
:use
Lennart> '())))
Lennart> (export (mapcar (lambda (sym-name) (intern sym-name
package))
Lennart> export)
Lennart> package)))
Lennart> (ENSURE-CORBA-PACKAGE
Lennart> "COSNAMING" :EXPORT '("ISTRING")))
Lennart> (DEFTYPE COSNAMING:ISTRING () 'STRING)
I don't get any error compiling and loading this test example using
stock 19a on solaris.
Ray
