Custom Query (1030 matches)

The following function doesn't work properly on MacOS/64bit (32bit is ok, I didn't test other platforms).

(defun foo (x)
  (if (vectorp x)
      x
      (foo (vector x))))

Welcome to Clozure Common Lisp Version 1.9-r15883M  (DarwinX8664)!
? (defun foo (x) (if (vectorp x) x (foo (vector x))))
FOO
? (foo 'test)
#(#(#(#(#(#(#(................#(#(#(#(#(#(#(
> Error: Stack overflow on temp stack.

Welcome to Clozure Common Lisp Version 1.9-r15788M  (DarwinX8632)!
? (defun foo (x) (if (vectorp x) x (foo (vector x))))
FOO
? (foo 'test)
#(TEST)

Start a trunk ccl and do (require 'cocoa). Choose "Preferences..." from the application menu.

> Error: Invalid memory operation.
> While executing: GUI::|-[CCLFontToNameTransformer transformedValue:]|, in process Initial(0).

The function in question is in ccl:cocoa-ide;preferences.lisp.

It works on 1.9.

I suspect a compiler bug, but I have not looked at it very hard, so I could be wrong about that. The trunk and 1.9 versions of the function are identical.

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 >