Custom Query (1030 matches)

The attached code was extracted from cl-yacc which stopped working after commit 14305 (noticed it when trying to compile plexippus xpath). cl-yacc itself was tested for this problem only on ARM at the moment but the test code was also tried on x86_64 with similar results. The strict type checks for structure slots accessor break cl-yacc code because defstruct stores invalid type info for accessors for inherited slots if the inheriting structure uses the same :conc-name as the :include'd one. I guess cl-yacc may not be the only victim of the problem. Sorry, no patch this time as perhaps DEFSTRUCT stuff needs to be reworked and you know better how it should look after that.

Another related problem I noticed is that REMOVE-STRUCTURE-DEFS function invoked by DEFSTRUCT expansion removes inherited accessors too and seems like after that they don't always get redefined.

This:

(gui:background-process-run-function "foo" (lambda () (print 123)))

consistently causes CCL to hang with a SBOD. This:

(gui:background-process-run-function "foo" (lambda () (sleep 1) (print 123)))

works reliably.

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