Custom Query (1030 matches)

The following special operators don't have a corresponding macro definition.

ccl:nfunction 
ccl:compiler-let 
ccl::ppc-lap-function 
ccl::with-variable-c-frame 
ccl::with-c-frame 
ccl::fbind 

While the standard doesn't specify anything for special operators not in the CL package, it would still be nice if they followed the same rule as for CL macros implemented as special operators:

3.1.2.1.2.2 Macro Forms
An implementation is free to implement any macro operator as a special operator, 
but only if an equivalent definition of the macro is also provided. 

since this would ensure that portable code walkers can be written.

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")