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.

We found this bug while testing asdf's run-program. This notably matter when invoking CMD.EXE:

? (ccl::make-windows-command-line '("echo" "ok" "1"))
"echo ok 1 " ;; instead of "echo ok 1"

The problem is that due to the time when you shorten the list of string, the test (when strings ...) around printing the space should instead be (when (cdr strings) ...).

PS: you may or may not want to M-x delete-trailing-whitespace and/or have a svn hook that ensures you don't have such whitespace.

The function ccl::external-process-wait is missing on #+windows-target.

Looking at the source for run-program, it looks like this might work:

(in-package :ccl)

(defun external-process-wait (proc)
  (when (external-process-pid proc))
    (with-interrupts-enabled
        (wait-on-semaphore (external-process-completed proc)))))))