Custom Query (1030 matches)

Calling a undefined function with 3 arguments leads to a CCL::INVALID-MEMORY-ACCESS error. It doesn't seem like that is supposed to happen; I would expect a CCL::UNDEFINED-FUNCTION-CALL error instead:

shell> lx86cl --no-init
Welcome to Clozure Common Lisp Version 1.10-dev-r16189M-trunk (LinuxX8632)!

? (foo 1 2 3)
> Error: Fault during read of memory address #x-5AFA91A6
> While executing: CCL::INDEXED-GPR-MACPTR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >

CCL doesn't seem to call the make-load-form method for NAME in this example:

(in-package cl-user)

(eval-when (:compile-toplevel :load-toplevel)
  (defparameter *names* (make-hash-table))
  (defstruct name sym)
  (defmethod make-load-form ((o name) &optional env)
    (declare (ignore env))
    (let ((sym (name-sym o)))
      (format *trace-output* "make-load-form for name called: ~s~%" sym)
      `(or (gethash ',sym *names*)
	   (error "Name not defined: ~s" ',sym)))))

'#.(make-name :sym 'some-undefined-name)

The output is

shell> ccl -e '(load (compile-file "x.lisp") :verbose t)'
;Loading #P"/tmp/x.lx32fsl"...
Welcome to Clozure Common Lisp Version 1.11-dev-r16447M-trunk  (Linuxx8632)!

CCL is developed and maintained by Clozure Associates. For more information
about CCL visit http://ccl.clozure.com.  To enquire about Clozure's Common Lisp
consulting services e-mail info@clozure.com or visit http://www.clozure.com.

? 

but I would expect that it prints something about make-load-form being called.

I get an error when inspecting tcp sockets:

Welcome to Clozure Common Lisp Version 1.3-dev-r11532M-trunk  (LinuxX8632)!
? (ccl::make-tcp-socket :remote-host "www.google.com" :remote-port 80)
#<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/4) #x149DD8EE>
? (inspect *)
[0]     #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/4) #x149DD8EE>
[1]     Type: CCL::BASIC-TCP-STREAM
[2]     Class: #<BUILT-IN-CLASS CCL::BASIC-TCP-STREAM>
> Error: Invalid reference to #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/4) #x149DD8EE> at index 0.
> While executing: #<CCL::STANDARD-KERNEL-METHOD INSPECTOR::LINE-N (INSPECTOR::UVECTOR-INSPECTOR
                                                                    T)>, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >