Custom Query (1030 matches)

(setf (ccl:current-directory) #p"/tmp/")
(let ((*default-pathname-defaults* #p"/"))
  (probe-file "/etc"))
;;==> #p"/etc/" ; on CCL 1.9 15581
;;==> NIL ; on CCL 1.9 15773

Remarkably, the CLHS entry for PROBE-FILE doesn't seem to mention *DEFAULT-PATHNAME-DEFAULTS* or MERGE-PATHNAMES, unlike OPEN which at least mentions the latter and implies its use. So that makes PROBE-FILE also subtly different from OPEN (assuming OPEN is unaffected -- is it? I have tested). ​http://clhs.lisp.se/Body/f_probe_.htm

In any case, this is probably a bug, and if not, a change that should be prominently documented.

(directory #P"foo/*" :directories nil) [(directory #P"foo:*" :directories nil) in MCL]

MCL: Returns all files under the foo directory, regardless of whether they have a type or not.

CCL: Returns only files that have no type under foo directory.

Test: (= (length (directory #P"ccl:*.*")) (length (directory #P"ccl:*"))) Should return T if this bug is fixed.

Technically, this is probably not an ANSI compliance issue since ANSI is vague on what #'directory is supposed to do. But current behavior is different from MCL, which is presumably where many CCL users come from. It would be interesting to see what ACL does here.

Fix is simple:

--- pathnames.lisp (revision 15751) +++ pathnames.lisp (working copy) @@ -582,6 +582,10 @@

(%path-str*= pstr pattern))

(defun %file*= (name-pat type-pat pstr)

+ (when (and (eq name-pat :wild) + (or (null type-pat) + (eq type-pat :unspecific))) + (setq type-pat :wild))

(if (eq name-pat :wild) (setq name-pat "*")) (if (eq type-pat :wild) (setq type-pat "*")) (when (and (null name-pat) (null type-pat))

When I try to load usocket, an error "Foreign function not found: WIN64::|gethostname|" is displayed.

I am running CCL 64-bit on Windows 7 64-bit.

wx86cl64.exe -I ccl.save Welcome to Clozure Common Lisp Version 1.9-r15765 (WindowsX8664)! ? (ql:quickload "usocket") To load "usocket":

Load 1 ASDF system:

usocket

; Loading "usocket" Read error between positions 220 and 317 in C:/Users/Gerry/quicklisp/dists/quicklisp/software/usocket-0.6.0.1/backend/openmcl.lisp.

Error: Foreign function not found: WIN64::|gethostname| While executing: CCL::LOAD-EXTERNAL-FUNCTION, in process listener(1). Type :POP to abort, :R for a list of available restarts. Type :? for other options.

1 >

The error seems to be in the following code:

(defun get-host-name ()

(ccl::%stack-block ((resultbuf 256))

(when (zerop (#_gethostname resultbuf 256))

(ccl::%get-cstring resultbuf))))