Custom Query (1030 matches)

Make the following two files, and start CCL (any Darwin OS, 32-bit or 64-bit, with or without the IDE).

The files should be as follows:

ccl:complex-test.lisp

(defun goo1 ()
  #c(0 -1))

~/ccl-init.lisp

(setf ccl::*fasl-save-definitions* t)
(compile-file "ccl:complex-test.lisp")
#+:64-BIT-HOST
(load "ccl:complex-test.dx64fsl")
#-:64-BIT-HOST
(load "ccl:complex-test.dx32fsl")

The following error occurs:

Error: bad opcode near position 341 in FASL file "/Applications/ccl/trunk/ccl/complex-test.dx64fsl" While executing: CCL::%BAD-FASL, in process Listener(4). Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. If continued: Skip loading init file. Type :? for other options.

1 >

If your ccl-init.lisp is actually a symlink to a file elsewhere and you meta-dot on a definition in that file, Hemlock opens a window to the symlink rather than the actual file. (It shows a small arrow in the titlebar icon of the window). Edits to this "file" can be made but CCL throws an error when you try to save them.

; Welcome to Clozure Common Lisp Version 1.10-dev-r16221M-trunk  (DarwinX8664)!

(defparameter cdf1 (make-array 100
                             :element-type '(complex double-float)
                             :adjustable nil
                             :fill-pointer nil
                             :initial-element #c(0.0d0 0.0d0)))

(defparameter cdf2 (make-array 100
                             :element-type '(complex double-float)
                             :adjustable nil
                             :fill-pointer nil
                             :initial-element #c(0.0d0 0.0d0)))

(defun init-vector (a)
    (loop :for i :below (length a)
      :do 
        (let ((initval (coerce (random 100.0) (array-element-type a))))
          (setf (aref a i) initval))))

(init-vector cdf1)
(init-vector cdf2)

(defun vdp-cdf (a b)
  "Vector dot product. Complex double-float."
  (declare (optimize (speed 3) (safety 2) (debug 0))
           (type (SIMPLE-ARRAY (complex DOUBLE-FLOAT)) a b))
  (let ((size (min (length a) (length b)))
        (accum #c(0.0d0 0.0d0)))
    (declare (fixnum size)
             (type (complex DOUBLE-FLOAT) accum))
    (loop :for i :of-type fixnum :below size
      :do (incf accum (* (aref a i)
                         (aref b i))))
    accum))

(vdp-cdf cdf1 cdf2)

#|
If safety < 3:

> Error: Invalid memory operation.
> While executing: VDP-CDF, in process Listener(4).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.
1 > 

If safety = 3:
[produces answer]
|#