Custom Query (1030 matches)

The CL HyperSpec says of *print-radix*:

For integers, base ten is indicated by a trailing decimal point instead of a leading radix specifier; for ratios, #10r is used.

Yet CCL omits the leading "#10r" in the example shown below. I did the same test in Allegro CL, CLISP, CMUCL, GCL, Lispworks, and SBCL, and each of those printed "#10r4/5" rather than "4/5".

Welcome to Clozure Common Lisp Version 1.9-dev-r15503M-trunk (LinuxX8664)! ? (setq *print-base* 10 *print-radix* t) T ? 4/5 4/5 ?

The spec says that a warning should be issued if a variable declared to be ignored is declared SPECIAL, as in:

(defun foo (x y)
 (declare (ignore y))
 ...
 (locally
   (declare (special y))
   ...))

That code doesn't make much sense, but it clearly deservers a warning.

(defparameter y ...)

(defun foo (x y)
 (declare (ignore y))
 ...)

is about the same thing, but the warning in both cases should probably complain that inconsistent declarations applied to Y and not just say that it "wasn't IGNOREd".

rename-file filespec new-name should supply missing components of new-name from filespec, which it does wrong in the case of (rename-file (make-pathname :name "x.s") "y"). Presently CCL (1.8 and trunk on linuxx86) renames "x.s" to "y.s" because it resolves supplied filespec into its truename via intermediate conversion to a native namestring before supplying defaults.

This is a fix:

--- lib/pathnames.lisp.orig
+++ lib/pathnames.lisp.new
@@ -98,7 +98,7 @@
   file, then the associated file is renamed."
   (let* ((original (truename file))
         (original-namestring (native-translated-namestring original))
-        (new-name (merge-pathnames new-name original))
+        (new-name (merge-pathnames new-name (merge-pathnames file)))
         (new-namestring (native-translated-namestring new-name)))
     (unless new-namestring
       (error "~S can't be created." new-name))