Custom Query (1030 matches)

I have Openmcl started from the command line. No GUI.

I call:

(require "COMPILE-HEMLOCK")

and

(ccl::compile-hemlock t)

Read error between positions 18247 and 18805 in /Lisp/Implementations/openmcl/ccl/cocoa-ide/hemlock/src/macros.lisp.

Error: Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/Lisp/Implementations/openmcl/ccl/cocoa-ide/hemlock/src/macros.lisp"/9 ISO-8859-1) #x3000425DD39D>, near position 18805, within "gui::typeo":

Reference to unknown package "GUI".

$ clall -r '(read-from-string "+.e2")'

International Allegro CL Free Express Edition --> +.E2, 4
Clozure Common Lisp            --> 0.0, 4
CLISP                          --> |+.E2|, 4
CMU Common Lisp                --> |+.E2|, 4
ECL                            --> 0.0, 4
SBCL                           --> |+.E2|, 4


CLHS is clear about it "2.3.1 Numbers as Tokens", the syntax for
floating point numbers is:

    float          ::=  [sign]
                       {decimal-digit}*
                       decimal-point
                       {decimal-digit}+
                       [exponent]  
                        | 
                       [sign]
                       {decimal-digit}+
                       [decimal-point
                           {decimal-digit}*]
                       exponent    
    exponent       ::=  exponent-marker
                       [sign]
                       {digit}+    

that is, at least one decimal digit is required before or after the dot.

With no digit, the token +.e2 should be read as a symbol.

It looks to be that arrays of complex double-floats evaluated at readtime aren't being stashed away in the fasl correctly.

Test case:

(defvar *test* nil)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defun v (&rest args)
    (let ((a (make-array (length args) :element-type '(complex double-float)
                                       :initial-element #C(0.0d0 0.0d0))))
      (loop :for i :from 0
            :for x :in args
            :do (setf (aref a i) (coerce x '(complex double-float)))
            :finally (return a)))))

(defmacro define-foo (name m)
  `(setf (getf *test* ',name) ,m))

(define-foo a (v 1 2 3))

(define-foo b '#.(v 1 2 3))

Output:

CL-USER> (load (compile-file "test.lisp"))
#P"test.dx64fsl"
CL-USER> *test*
(B #(#C(0.0D0 0.0D0) #C(0.0D0 0.0D0) #C(0.0D0 0.0D0))
 A #(#C(1.0D0 0.0D0) #C(2.0D0 0.0D0) #C(3.0D0 0.0D0)))