Custom Query (1030 matches)

(setq path (make-pathname :name :unspecific
                          :type :unspecific
                          :directory '(:absolute)))
=> #P"/"

(merge-pathnames path "foo.bar")
=> #P"/"

(probe-file path)
=> #P"/"

(let ((*default-pathname-defaults* "foo.bar"))
  (probe-file path))
=> NIL

The first three results are correct. The last is not.

It was reported (by David Brown on Feb 10,2008} that the following code crashes

(let ((shared1 (make-array 8 :element-type '(unsigned-byte 8)))
       (shared2 (make-array 8 :element-type '(unsigned-byte 8))))
   (ccl:with-pointer-to-ivector (%shared1 shared1)
     (ccl:with-pointer-to-ivector (%shared2 shared2)
       (%stack-block ((stacky 8))
         (format t "~A~%~A~%~A~%" %shared1 %shared2 stacky)))))

This should have been fixed in recent checkins, but a test case for the bug is here for the record.

I'm trying to define a setf expander that itself is a macro which uses other macros. This does not work:

(in-package :cl-user)

(defvar *foo* 0)

(defmacro foo () '*foo*) (defmacro set-foo (new) `(setf *foo* ,new))

(defmacro set-bar (new)

(set-foo new))

(defsetf foo set-bar)

(incf (foo))

; The error is ; value #:G25 is not of the expected type NUMBER. ; The expansion of the (incf (foo)) form is ; (LET* ((#:G1 1) (#:G0 (+ (FOO) #:G1))) (SET-BAR #:G0))