Opened 11 years ago

Closed 11 years ago

Last modified 11 years ago

#326 closed defect (fixed)

EVAL-WHEN or UNLESS bug

Reported by: binghe Owned by: gb
Priority: major Milestone:
Component: Compiler Version: 1.2
Keywords: eval-when Cc:

Description

Following code cannot load after compile:

(in-package :cl-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package ':portable-threads)
    (make-package ':portable-threads
                  :use '(:common-lisp))))

(in-package :portable-threads)
binghe@binghe-mac:~/Lisp/src$ ccl64
; loading system definition from ASDF:CL-FAD;cl-fad.asd.newest into #<Package "ASDF0">
; registering #<SYSTEM CL-FAD #x300040F2D09D> as CL-FAD
Welcome to Clozure Common Lisp Version 1.2-r10475M-trunk  (DarwinX8664)!
? (compile-file "ccl-eval-when")
#P"/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
NIL
NIL
? (load "ccl-eval-when")
> Error: Package name "PORTABLE-THREADS" is already in use.
> While executing: MAKE-PACKAGE, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
 (65A778) : 0 (MAKE-PACKAGE :PORTABLE-THREADS [...]) 277
 (65A810) : 1 (FUNCALL #'#<CCL::$FASL-LFUNCALL> #<CCL::FASLSTATE #x76B10D>) 77
 (65A830) : 2 (%FASLOAD "/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
                        [...]) 1285
 (65A8D8) : 3 (%LOAD #P"/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
                     NIL
                     NIL
                     :ERROR
                     :DEFAULT) 2381
 (65AA40) : 4 (LOAD "ccl-eval-when" [...]) 1037
 (65AAE0) : 5 (CALL-CHECK-REGS 'LOAD [...]) 229
 (65AB18) : 6 (TOPLEVEL-EVAL '(LOAD "ccl-eval-when") [...]) 733
 (65ABB8) : 7 (READ-LOOP [...]) 1837
 (65ADD8) : 8 (TOPLEVEL-LOOP) 125
 (65AE08) : 9 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 101
 (65AE20) : 10 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 645
 (65AEB8) : 11 (RUN-PROCESS-INITIAL-FORM
                 #<TTY-LISTENER listener(1) [Active] #x300040DB301D>
                 '(#<COMPILED-LEXICAL-CLOSURE # #x300040DB292F>)) 717
 (65AF48) : 12 (FUNCALL #'#<(:INTERNAL CCL::%PROCESS-PRESET-INTERNAL)>
                        #<TTY-LISTENER listener(1) [Active] #x300040DB301D>
                        '(#<COMPILED-LEXICAL-CLOSURE # #x300040DB292F>)) 389
 (65AF98) : 13 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 293
1 > :POP

Change History (2)

comment:1 Changed 11 years ago by gb

  • Resolution set to fixed
  • Status changed from new to closed

Fixed in r10483.

comment:2 Changed 11 years ago by rme

  • Milestone 1.2 deleted

Milestone 1.2 deleted

Note: See TracTickets for help on using tickets.