Custom Query (1030 matches)

Hi,

I believe there is a new bug on CCL related to reader tables. In particular it appears that doing a copy-readtable no longer produces a deep enough copy. The following small test code illustrates the problem:

(defparameter *my-readtable* (copy-readtable))

(defun my-sharp-dot-read (stream char n)
  (declare (ignore char n stream))
  (format t "My sharp-dot-read invoked!~%"))

(let ((*readtable* *my-readtable*))
  (set-dispatch-macro-character #\# #\. 'my-sharp-dot-read))

(format t "Are they the same?  ~a~%"
        (eq (get-dispatch-macro-character #\# #\. *readtable*)
            (get-dispatch-macro-character #\# #\. *my-readtable*)))

I believe this should print:

    Are they the same?  NIL

And indeed this is what gets printed on a recent copy of SBCL and also on the slightly older version of CCL: CCL 1.11-dev-r16394M-trunk (LinuxX8664).

However, the bleeding-edge CCL, Version 1.11-dev-r16446M-trunk (LinuxX8664), instead prints:

    Are they the same?  T

I can see from the commit log that there has been some recent work on reader macros, so this is perhaps related to those recent changes.

Thanks!

Jared

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 recently recompiled my ccl from svn trunk, and got this error:

ccl --eval '(require "asdf")' --eval '(asdf:make "named-readtables")'

Error: Undefined function CCL::RDTAB.ALIST called with arguments (#<error printing READTABLE #x30200095218D>) . While executing: %MAKE-READTABLE-ITERATOR, in process listener(1).

Apparently, named-readtables relied on the old rdtab.alist to build a %make-readtable-iterator.

Can you provide some API that iterates over your sparse-vector and/or your readtables?

Here is the corresponding issue in said library: ​https://github.com/melisgl/named-readtables/issues/5