X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-extensions.lisp;h=a841f908b461a8c2eac849e5ef59ac95401eeaa2;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=4b71114f62ce670d525de01e87fdf35d6be16efe;hpb=c41d75f1d2defd6234e644ef2b40440a5d1526c5;p=sbcl.git

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 4b71114..a841f90 100644
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -20,12 +20,12 @@
 (defun list-with-length-p (x)
   (values (ignore-errors (list-length x))))
 
-;;; not used in 0.7.8, but possibly useful for defensive programming 
+;;; not used in 0.7.8, but possibly useful for defensive programming
 ;;; in e.g. (COERCE ... 'VECTOR)
 ;;;(defun list-length-or-die (x)
 ;;;  (or (list-length x)
 ;;;      ;; not clear how to do this best:
-;;;      ;;   * Should this be a TYPE-ERROR? Colloquially that'd make 
+;;;      ;;   * Should this be a TYPE-ERROR? Colloquially that'd make
 ;;;      ;;     lots of sense, but since I'm not sure how to express
 ;;;      ;;     "noncircular list" as a Lisp type expression, coding
 ;;;      ;;     it seems awkward.