Custom Query (1030 matches)

From ​http://www.lispforum.com/viewtopic.php?f=2&t=486#p3216

(with-open-file (f "f" :direction :output :external-format :utf-16) (write "abc" :stream f))

(with-open-file (f "f" :direction :input :external-format :utf-16) (read f))

On Windows XP, this returns a symbol with a weird pname (containing #\u+feff).

It works as expected on Darwin/x86.

(defun nil ()) expands to

(ccl::%defun (ccl::nfunction nil (lambda nil (block nil))) 'nil)

And call to

(ccl::dbg (ccl::nfunction nil (lambda ())))

from %defun brings CCL to the kernel debugger.

Welcome to Clozure Common Lisp Version 1.4-dev-r13065M  (LinuxX8664)!
? (LAMBDA (A B)
    (DECLARE (OPTIMIZE (SAFETY 2) (SPEED 1)))
    (+ (LOAD-TIME-VALUE -14930786 T) 1826522792 B))
> Error: 14612182336 : value doesn't match constraint :S32CONST in template for CCL::ADD-CONSTANT .
> While executing: CCL::MATCH-VREG, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.