Lennart Staflin wrote:
> 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.)
I cannot reproduce this: (it also works without -noinit)
[EMAIL PROTECTED]:~ :) $ cat > t.lisp
(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)
[EMAIL PROTECTED]:~ :) $ lisp -noinit
CMU Common Lisp CVS release-19a 19a-release-20040728 + minimal
debian patches, running on sharrow
With core: /usr/lib/cmucl/lisp.core
Dumped on: Fri, 2004-10-22 13:34:16+02:00 on sharrow
For support see http://www.cons.org/cmucl/support.html Send bug
reports to the debian BTS. or to [EMAIL PROTECTED]
type (help) for help, (quit) to exit, and (demo) to see the demos
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (compile-file "t.lisp")
; Python version 1.1, VM version Intel x86 on 14 DEC 04 10:07:16 am.
; Compiling: /home/pvaneynd/t.lisp 14 DEC 04 10:07:01 am
; Converted ENSURE-CORBA-PACKAGE.
; Compiling DEFUN ENSURE-CORBA-PACKAGE:
; Compiling DEFTYPE COSNAMING:ISTRING:
; Byte Compiling Top-Level Form:
; t.x86f written.
; Compilation finished in 0:00:01.
#p"/home/pvaneynd/t.x86f"
NIL
NIL
* (load "t")
; Loading #p"/home/pvaneynd/t.x86f".
T
*
Groetjes, Peter
