Custom Query (1030 matches)

Porting some code from lispworks/sbcl I note that the char names for things like #\SOH et. al. are not defined.

​http://www.december.com/html/spec/ascii.html

(loop for x in '("#\NUL" "#\SOH" "#\STX" "#\ETX" "#\EOT" "#\ENQ" "#\ACK" "#\BEL" "#\BS" "#\HT" "#\NL" "#\VT" "#\NP" "#\CR" "#\SO" "#\SI") collect (ignore-errors (read-from-string x)))

I get a crash when executing something like

(with-open-file (stream ucs-2-file :external-format :ucs-2)
   (print (read-line stream)))

The same for :utf-16. read-char() is OK.

• Paul

dixiechicks.isi.edu 50%  ccl -n
Welcome to Clozure Common Lisp Version 1.4-r14334M  (LinuxX8632)!
? (user-homedir-pathname)
#P"/nfs/isd3/philpot/"

so far so good, but...

? (let ((*default-pathname-defaults*
          (make-pathname :directory '(:absolute "tmp")
             :name "dummy"
             :type "txt"
             :version :newest)))
   (user-homedir-pathname))
#P"/"
? (let ((*default-pathname-defaults* #p"/tmp/a.b"))
    (user-homedir-pathname))
#P"/nfs/isd3/philpot/a.b"

Looks like some merging is going on, but why?

As I read the CLHS, user-homedir-pathname is supposed to return either a (presumably constant) pathname sans name, type, and version components -- or NIL.

Is this behavior conformant?

Andrew