Custom Query (1030 matches)

Open a largish file, e.g. cocoa-editor.lisp

Right click in it and select Duplicate this window.

Go back to the first window and scroll it down to near the end, and click somewhere in the text.

Go back to the second window, and scroll by large amounts and try to click in the text. For me, most of the time, clicking places the insertion point in an apparently random location in the buffer, instead of where I clicked.

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.