Custom Query (1030 matches)

SBCL has a sb-debug::backtrace-as-list function which returns the backtrace summary in list form. This is useful for certain kinds of tracing and profiling. The attached diff adds a similar function to OpenMCL/CCL.

(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.