Custom Query (1030 matches)

The following shows a problem that I noticed.

The condition signalled seems ok (SIMPLE-READER-ERROR) but the associated message does not mention the fact that the problem is the unknown package.

Incidentally I would create a special PACKAGE-NOT-FOUND-READER condition for this specific error.

paniscia:~ marcoxa$ ccl
AM I BEING LOADED?
Welcome to Clozure Common Lisp Version 1.5-r13651  (DarwinX8632)!
? (ignore-errors (read))
foo::bar

NIL
#<CCL::SIMPLE-READER-ERROR #xC47489E>
? > Error: Unbound variable: BAR
> While executing: CCL::TOPLEVEL-EVAL, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry getting the value of BAR.
> Type :? for other options.
1 > :pop

Marco

When *print-circle* is T, FORMAT uses three times as much memory when printing conses compared to 1.9-r15757 (LinuxX8664), for example:

(defun test () (dotimes (k 100000) (format () "~a" '((a) (b)))))
(time (test))

Runtime is also increased, by ca. 25%

When *print-circle* is nil, the increase in memory usage is even bigger (almost tenfold).

The sharp-double-quote example in Let Over Lisp requires the addition of an extra " at the end of the expression in order to allow return to evaluate the expression in the REPL. The following code:

(defun |#"-reader| (stream sub-char numarg)
  (declare (ignore sub-char numarg))
  (let (chars)
    (do ((prev (read-char stream) curr)
         (curr (read-char stream) (read-char stream)))
        ((and (char= prev #\") (char= curr #\#)))
      (push prev chars))
    (coerce (nreverse chars) 'string)))

(set-dispatch-macro-character 
 #\# #\" #'|#"-reader|)

should produce a the following:

? #"contains " and \."#
"contains \" and \\."

However, to produce that result you'll have to add an additional " to the end of the expression, which shouldn't be required.