X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftype-class.lisp;h=94bf0551a793d4094720fa0224222280df379644;hb=d720bc359f03734ccb9baf66cb45dc01d623f369;hp=0a48bb4ffd8882a4d1537c86981c5cb55d13e97e;hpb=49319a8c7f3527b0d452b8f07bdabe02283e8ff7;p=sbcl.git

diff --git a/src/code/type-class.lisp b/src/code/type-class.lisp
index 0a48bb4..94bf055 100644
--- a/src/code/type-class.lisp
+++ b/src/code/type-class.lisp
@@ -95,7 +95,7 @@
   ;; The default case (NIL) is interpreted as a function that always
   ;; returns NIL, NIL.
   (singleton-p nil :type (or function null))
-  
+
   #|
   Not used, and not really right. Probably we want a TYPE= alist for the
   unary operations, since there are lots of interesting unary predicates that