Custom Query (1030 matches)

When launching the Lisp IDE from slime (require :cocoa), the GUI listener uses swank output streams, instead of the Listener window. This is due to missing bindings in make-mcl-listener-process. Adding:

                          (let ((*standard-input*  input-stream)
                                (*standard-output* output-stream)
                                (*error-output*    output-stream)
                                (*trace-output*    output-stream)
                                (*terminal-io*
                                  (if echoing
                                      (make-echoing-two-way-stream
                                       input-stream output-stream)
                                      (make-two-way-stream
                                       input-stream output-stream)))
                                (*query-io* *terminal-io*)
                                (*debug-io* *terminal-io*))

makes it work as expected.

OPEN, PROBE-FILE, etc doesn't take into account *default-pathname-defaults* when given a pathname or a name string containing only a file name and type, in the versions:

"Version 1.9-r15757 (LinuxX8664)" "Version 1.9-r15759 (DarwinX8664)" (both from svn).

It works correctly in:

"Version 1.9 (DarwinX8664)" (from MacPort)

But I don't know if that version is anterior or posterior to "Version 1.9-r15759 (DarwinX8664)".

Minimal code:

(let ((dir (format nil "/tmp/dir~36,8R/" (random (expt 36 8)))))
  (ensure-directories-exist (merge-pathnames #P"TEST" dir))
  (let ((p1 (format nil "~Aexample.txt" dir)))
    (with-open-file (out (pathname p1) 
                         :direction :output
                         :if-does-not-exist :create)
      (princ 'hello out) (terpri out))
    
    (list
     (lisp-implementation-type) (lisp-implementation-version)
     '---
     (let ((*default-pathname-defaults* #P""))
       (probe-file p1))
     (let ((*default-pathname-defaults* #P""))
       (probe-file (pathname p1)))
     '---
     (let ((*default-pathname-defaults* dir))
       (probe-file p1))
     (let ((*default-pathname-defaults* dir))
       (probe-file (pathname p1)))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file p1))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file (pathname p1)))
     '---
     (let ((*default-pathname-defaults* dir))
       (probe-file "example.txt"))
     (let ((*default-pathname-defaults* dir))
       (probe-file (pathname "example.txt")))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file "example.txt"))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file (pathname "example.txt"))))))

Results:

("Clozure Common Lisp" "Version 1.9-r15757  (LinuxX8664)" --- #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" --- #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" --- NIL NIL NIL NIL) 
("Clozure Common Lisp" "Version 1.9-r15759  (DarwinX8664)" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- NIL NIL NIL NIL) 
("Clozure Common Lisp" "Version 1.6-r14468M  (DarwinPPC32)" --- #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" --- #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" --- #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt") 
("Clozure Common Lisp" "Version 1.9  (DarwinX8664)" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt") 

at ​http://ccl.clozure.com

the dead link to ​http://trac.clozure.com/openmcl/register

should probably link to http://trac.clozure.com/ccl/register

Peace

--Devon