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.

With 1.2-r9226-RC1 (LinuxX8664), cannot compile-file with a pointer defconstant. A little annoying as it works on SBCL, clisp, etc.

(load "signal.lisp")
(compile-file "signal.lisp")

Error: Can't dump #<A Foreign Pointer #x1> - unknown type While executing: CCL::FASL-UNKNOWN, in process listener(1).

Here is signal.liop

(asdf:operate 'asdf:load-op :cffi)
(defconstant +SIG_IGN+ (cffi:make-pointer 1))
(defconstant +SIGPIPE+ 13)

(cffi:defcfun ("signal" syscall-signal)
      :pointer
  (signum :int) 
  (action :pointer)) 

(defun disable-sigpipe ()
  (syscall-signal +SIGPIPE+ +SIG_IGN+))

QRES-GDS> (lisp-implementation-version) "Version 1.2-r9777-working-0711 (LinuxX8664)" QRES-GDS> (defgeneric test-or (a)

(:method ((a sequence))

(reduce #'plus a :key #'identity)))

#<STANDARD-GENERIC-FUNCTION TEST-OR #x30006EF2F15F> QRES-GDS> (defgeneric test-or (a)

(:method ((a sequence))

(reduce #'or a :key #'identity)))

;Compiler warnings : ; In (TEST-OR (SEQUENCE)) inside an anonymous lambda form: FUNCTION can't be used to reference lexically visible macro OR. ; Evaluation aborted.

;;; the slime backtrace buffer contained:

Lambda list of method #<STANDARD-METHOD TEST-OR (SEQUENCE)> is incompatible with that of the generic function TEST-OR. Method's lambda-list : (A) Generic-function's : (A)

[Condition of type SIMPLE-ERROR]

Restarts:

0: [CONTINUE] Remove 0 methods from the generic-function and change its lambda list. 1: [ABORT] Return to SLIME's top level.

Backtrace:

0: (CCL::CHECK-DEFMETHOD-CONGRUENCY #<STANDARD-GENERIC-FUNCTION TEST-OR #x30006EF2F15F> #<STANDARD-METHOD TEST-OR (SEQUENCE)>) 1: (CCL::%ADD-STANDARD-METHOD-TO-STANDARD-GF #<STANDARD-GENERIC-FUNCTION TEST-OR #x30006EF2F15F> #<STANDARD-METHOD TEST-OR (SEQUENCE)>) 2: (CCL::ENSURE-METHOD TEST-OR (#<BUILT-IN-CLASS SEQUENCE>) :FUNCTION #<CCL:METHOD-FUNCTION TEST-OR (SEQUENCE)> :QUALIFIERS NIL :LAMBDA-LIST (A)) 3: (#<Anonymous Function #x30006F896E3F>) 4: (SWANK::EVAL-REGION "(defgeneric test-or (a)

(:method ((a sequence))

(reduce #'or a :key #'identity)))

")

5: ((:INTERNAL SWANK::REPL-EVAL))

...