Custom Query (1030 matches)

(make-pathname :directory "x") should produce #P"/x/", and not #P"x/", as per the spec, the last paragraph under Description

​http://www.lispworks.com/documentation/HyperSpec/Body/f_mk_pn.htm

CCL doesn't seem to call the make-load-form method for NAME in this example:

(in-package cl-user)

(eval-when (:compile-toplevel :load-toplevel)
  (defparameter *names* (make-hash-table))
  (defstruct name sym)
  (defmethod make-load-form ((o name) &optional env)
    (declare (ignore env))
    (let ((sym (name-sym o)))
      (format *trace-output* "make-load-form for name called: ~s~%" sym)
      `(or (gethash ',sym *names*)
	   (error "Name not defined: ~s" ',sym)))))

'#.(make-name :sym 'some-undefined-name)

The output is

shell> ccl -e '(load (compile-file "x.lisp") :verbose t)'
;Loading #P"/tmp/x.lx32fsl"...
Welcome to Clozure Common Lisp Version 1.11-dev-r16447M-trunk  (Linuxx8632)!

CCL is developed and maintained by Clozure Associates. For more information
about CCL visit http://ccl.clozure.com.  To enquire about Clozure's Common Lisp
consulting services e-mail info@clozure.com or visit http://www.clozure.com.

? 

but I would expect that it prints something about make-load-form being called.

Using 1.4-dev-r13064M-trunk (LinuxX8632) :

CL-USER> (make-heap-ivector array-total-size-limit '(unsigned-byte 8))
#()
#<A Foreign Pointer #xB0E2A014>
16777216
CL-USER> (type-of *)
(SIMPLE-ARRAY (UNSIGNED-BYTE 8) (0))