Custom Query (1030 matches)

Currently *wrap-lines-to-window* is a global preference that only takes effect when new windows are opened. We need a way to dynamically change this value on a per-window basis (on windows that have already been opened) with a menu item and command-key equivalent.

We should probably keep the global preference as it serves as a default. But it needs to be possible to change this flag dynamically on windows that are already open.

Fred had this capability and it was useful, and we need it in the CCL IDE.

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