I have run into a problem creating packages at load time that seems to
be a CMUCL bug.
CMUCL version 19a-release-20040728
(I had the problem in earlier versions also, but haven't been abel to
produce a small test case before.)
Here is my test case:
(in-package :cl-user)
(EVAL-WHEN (COMPILE LOAD EVAL)
(defun ensure-corba-package (name &key nicknames export)
(let ((package (find-package name)))
(unless package
(setq package (make-package name :nicknames nicknames :use
'())))
(export (mapcar (lambda (sym-name) (intern sym-name package))
export)
package)))
(ENSURE-CORBA-PACKAGE
"COSNAMING" :EXPORT '("ISTRING")))
(DEFTYPE COSNAMING:ISTRING () 'STRING)
When compiled and the loaded in a fresh image, I get the error:
Error in function LISP::FOP-PACKAGE: The package "COSNAMING" does not
exist.
I think that the above code should work.
//Lennart Staflin
