Custom Query (1030 matches)

I'm under Clozure Common Lisp Version 1.1-r9799S (DarwinX8632).

Compile IRONCLAD, the pure lisp encrpyt package, failed. See attach for backtrace.

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

Open a unconnected UDP (datagram, internet) socket failed on CCL trunk darwinX8632. (darwinX8664 is OK)

Welcome to Clozure Common Lisp Version 1.3-dev-r11173M-trunk  (DarwinX8632)!
? (openmcl-socket:make-socket :address-family :internet
					  :type :datagram)
> Error: value NIL is not of the expected type (OR INTEGER STRING).
> While executing: CCL::HOST-AS-INET-HOST, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b  
 (454C2C) : 0 (HOST-AS-INET-HOST NIL) 1199
 (454C38) : 1 (MAKE-TCP-STREAM-SOCKET
                4
                :ADDRESS-FAMILY
                :INTERNET
                :TYPE
                :DATAGRAM) 359
 (454C78) : 2 (MAKE-TCP-SOCKET :ADDRESS-FAMILY :INTERNET :TYPE :DATAGRAM) 503
 (454CAC) : 3 (MAKE-SOCKET :ADDRESS-FAMILY :INTERNET :TYPE :DATAGRAM) 695
 (454DA0) : 4 (CALL-CHECK-REGS
                MAKE-SOCKET
                :ADDRESS-FAMILY
                :INTERNET
                :TYPE
                :DATAGRAM) 247
 (454DBC) : 5 (TOPLEVEL-EVAL
                (MAKE-SOCKET :ADDRESS-FAMILY :INTERNET :TYPE :DATAGRAM)
                NIL) 759
 (454DFC) : 6 (READ-LOOP :INPUT-STREAM
                         #<SYNONYM-STREAM to *TERMINAL-IO* #x891D4C6>
                         :OUTPUT-STREAM
                         #<SYNONYM-STREAM to *TERMINAL-IO* #x891D3EE>
                         :BREAK-LEVEL
                         0
                         :PROMPT-FUNCTION
                         #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x834F0CE>) 1567
 (454F00) : 7 (TOPLEVEL-LOOP) 79
 (454F08) : 8 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 87
 (454F14) : 9 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 583
 (454F60) : 10 (RUN-PROCESS-INITIAL-FORM
                 #<TTY-LISTENER listener(1) [Active] #x891C886>
                 (#<COMPILED-LEXICAL-CLOSURE # #x891C5A6>)) 671
 (454FA4) : 11 (FUNCALL #'#<(:INTERNAL CCL::%PROCESS-PRESET-INTERNAL)>
                        #<TTY-LISTENER listener(1) [Active] #x891C886>
                        (#<COMPILED-LEXICAL-CLOSURE # #x891C5A6>)) 335
 (454FCC) : 12 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 279