Custom Query (1030 matches)

I was inspecting a HEMLOCK-FRAME object, when I got a memory fault. I will try to see if it is reproducable.

I don't know if it's useful, but here is the output:

* Error in event process: Fault during read of memory address #x0

(4428A8) : 0 (FUNCALL #'#<Anonymous Function #x300041B9E8AF> #<CCL::INVALID-MEMORY-ACCESS #x300041EC8F5D>) 149

(#:G13856)

#:G13856: #<CCL::INVALID-MEMORY-ACCESS #x300041EC8F5D>

#:COMPILER-VAR: (NIL) #:G13853: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFC320>

(4428D0) : 1 (SIGNAL #<CCL::INVALID-MEMORY-ACCESS #x300041EC8F5D> [...]) 989

(CONDITION &REST CCL::ARGS)

CONDITION: #<CCL::INVALID-MEMORY-ACCESS #x300041EC8F5D> CCL::ARGS: NIL

CCL::%HANDLERS%: ((ERROR)) CCL::TAG: (CONDITION #<COMPILED-LEXICAL-CLOSURE #xE6DCF>) CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS* CCL::FN: #<COMPILED-LEXICAL-CLOSURE #xE6DCF>

(442928) : 2 (%ERROR #<CCL::INVALID-MEMORY-ACCESS #x300041EC8F5D> NIL 558404) 93

(CONDITION CCL::ARGS CCL::ERROR-POINTER)

CONDITION: #<CCL::INVALID-MEMORY-ACCESS #x300041EC8F5D> CCL::ARGS: NIL CCL::ERROR-POINTER: 558404

(442950) : 3 (FUNCALL #'#<CCL::XCMAIN> 17591849973482) 1933

(#:G59660)

#:G59660: 17591849973482

#:G59666: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFB750> CCL::XP: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFBF70> CCL::XCF: #<A Foreign Pointer [stack-allocated] #x442A20> CCL::ADDR: 0 SIGNAL: 10 CCL::CODE: 0 CCL::FRAME-PTR: 558404

(4429B8) : 4 (%PASCAL-FUNCTIONS% 1 17591849973482) 405

(CCL::INDEX CCL::ARGS-PTR-FIXNUM)

CCL::INDEX: 1 CCL::ARGS-PTR-FIXNUM: 17591849973482

CCL::LISP-FUNCTION: #<Compiled-function CCL::XCMAIN (Non-Global) #x30004050133F> WITHOUT-INTERRUPTS: NIL CCL::*CALLBACK-TRACE-P*: NIL

(442A20) : 6 (FUNCALL #'#<Anonymous Function #x300040DD882F>) 288

NIL

CCL::S: #<NS-SIZE

Error: Fault during read of memory address #x0 While executing: #<Anonymous Function #x300040DD882F>, in process Initial(0).

;;; ;;; #<APPKIT-PROCESS Initial(0) [Active] #x3000404114FD> requires access to Shared Terminal Input ;;;

Welcome to Clozure Common Lisp Version 1.2-r8591:8592MS  (DarwinPPC32)!
? (define-method-combination standard+ ()
         ((around (:around))
          (before (:before))
          (primary () :required t)
          (after (:after)))
   (:arguments &optional args)

   (flet ((call-methods (methods)
            (mapcar #'(lambda (method)
                        `(call-method ,method))
                    methods)))
     (let ((form (if (or before after (rest primary))
                     `(multiple-value-prog1
                        (progn ,@(call-methods before)
                               (call-method ,(first primary)
                                            ,(rest primary)))
                        ,@(call-methods (reverse after)))
                     `(call-method ,(first primary)))))
        `(progn (print ,args)
       ,(if around
           `(call-method ,(first around)
                         (,@(rest around)
                          (make-method ,form)))
           form)))))
;Compiler warnings :
;   Unused lexical variable &OPTIONAL, in an anonymous lambda form
STANDARD+
? 

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))

...