X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcl-specials.lisp;h=9c455f8d5e1ac6d79576fe63e4a867d5012ff7f8;hb=0c3bbfaa2286626a2d915c8810f690aefc702661;hp=7b511180ca3f4ec7c6d008b7d95664cf215adc18;hpb=c5df202d52732a0dea8dc3558954a729073b7970;p=sbcl.git

diff --git a/src/code/cl-specials.lisp b/src/code/cl-specials.lisp
index 7b51118..9c455f8 100644
--- a/src/code/cl-specials.lisp
+++ b/src/code/cl-specials.lisp
@@ -13,73 +13,73 @@
 (in-package "COMMON-LISP")
 
 (sb!xc:proclaim '(special cl:*
-			  cl:**
-			  cl:***
-			  cl:*break-on-signals*
-			  cl:*compile-file-pathname*
-			  cl:*compile-file-truename*
-			  cl:*compile-print*
-			  cl:*compile-verbose*
-			  cl:*debug-io*
-			  cl:*debugger-hook*
-			  cl:*default-pathname-defaults*
-			  cl:*error-output*
-			  cl:*features*
-			  cl:*gensym-counter*
-			  cl:*load-pathname*
-			  cl:*load-print*
-			  cl:*load-truename*
-			  cl:*load-verbose*
-			  cl:*macroexpand-hook*
-			  cl:*modules*
-			  cl:*package*
-			  cl:*print-array*
-			  cl:*print-base*
-			  cl:*print-case*
-			  cl:*print-circle*
-			  cl:*print-escape*
-			  cl:*print-gensym*
-			  cl:*print-length*
-			  cl:*print-level*
-			  cl:*print-lines*
-			  cl:*print-miser-width*
-			  cl:*print-pprint-dispatch*
-			  cl:*print-pretty*
-			  cl:*print-radix*
-			  cl:*print-readably*
-			  cl:*print-right-margin*
-			  cl:*query-io*
-			  cl:*random-state*
-			  cl:*read-base*
-			  cl:*read-default-float-format*
-			  cl:*read-eval*
-			  cl:*read-suppress*
-			  cl:*readtable*
-			  cl:*standard-input*
-			  cl:*standard-output*
-			  cl:*terminal-io*
-			  cl:*trace-output*
-			  cl:+
-			  cl:++
-			  cl:+++
-			  cl:-
-			  cl:/
-			  cl://
-			  cl:///))
+                          cl:**
+                          cl:***
+                          cl:*break-on-signals*
+                          cl:*compile-file-pathname*
+                          cl:*compile-file-truename*
+                          cl:*compile-print*
+                          cl:*compile-verbose*
+                          cl:*debug-io*
+                          cl:*debugger-hook*
+                          cl:*default-pathname-defaults*
+                          cl:*error-output*
+                          cl:*features*
+                          cl:*gensym-counter*
+                          cl:*load-pathname*
+                          cl:*load-print*
+                          cl:*load-truename*
+                          cl:*load-verbose*
+                          cl:*macroexpand-hook*
+                          cl:*modules*
+                          cl:*package*
+                          cl:*print-array*
+                          cl:*print-base*
+                          cl:*print-case*
+                          cl:*print-circle*
+                          cl:*print-escape*
+                          cl:*print-gensym*
+                          cl:*print-length*
+                          cl:*print-level*
+                          cl:*print-lines*
+                          cl:*print-miser-width*
+                          cl:*print-pprint-dispatch*
+                          cl:*print-pretty*
+                          cl:*print-radix*
+                          cl:*print-readably*
+                          cl:*print-right-margin*
+                          cl:*query-io*
+                          cl:*random-state*
+                          cl:*read-base*
+                          cl:*read-default-float-format*
+                          cl:*read-eval*
+                          cl:*read-suppress*
+                          cl:*readtable*
+                          cl:*standard-input*
+                          cl:*standard-output*
+                          cl:*terminal-io*
+                          cl:*trace-output*
+                          cl:+
+                          cl:++
+                          cl:+++
+                          cl:-
+                          cl:/
+                          cl://
+                          cl:///))
 
 (sb!xc:proclaim '(type t cl:+ cl:++ cl:+++ cl:- cl:* cl:** cl:***))
 
 ;;; generalized booleans
 (sb!xc:proclaim '(type t cl:*compile-print* cl:*compile-verbose*
-		         cl:*load-print* cl:*load-verbose*
-		         cl:*print-array* cl:*print-radix*
-		         cl:*print-circle* cl:*print-escape*
-		         cl:*print-gensym* cl:*print-pretty*
-		         cl:*print-readably* cl:*read-eval*
-		         cl:*read-suppress*))
+                         cl:*load-print* cl:*load-verbose*
+                         cl:*print-array* cl:*print-radix*
+                         cl:*print-circle* cl:*print-escape*
+                         cl:*print-gensym* cl:*print-pretty*
+                         cl:*print-readably* cl:*read-eval*
+                         cl:*read-suppress*))
 
 (sb!xc:proclaim '(type sb!pretty::pprint-dispatch-table
-		       cl:*print-pprint-dispatch*))
+                       cl:*print-pprint-dispatch*))
 
 (sb!xc:proclaim '(type readtable cl:*readtable*))
 
@@ -88,7 +88,7 @@
 (sb!xc:proclaim '(type (member :upcase :downcase :capitalize) cl:*print-case*))
 
 (sb!xc:proclaim '(type (member cl:single-float cl:double-float
-			cl:short-float cl:long-float) cl:*read-default-float-format*))
+                        cl:short-float cl:long-float) cl:*read-default-float-format*))
 
 (sb!xc:proclaim '(type list cl:/ cl:// cl:/// cl:*features* cl:*modules*))
 
@@ -104,32 +104,32 @@
 ;; even this in Gray streams or simple-streams?  apparently not,
 ;; currently)
 (sb!xc:proclaim '(type stream
-		       cl:*standard-input*
-		       cl:*error-output*
-		       cl:*standard-output*
-		       cl:*trace-output*
-		       cl:*debug-io*
-		       cl:*query-io*
-		       cl:*terminal-io*))
+                       cl:*standard-input*
+                       cl:*error-output*
+                       cl:*standard-output*
+                       cl:*trace-output*
+                       cl:*debug-io*
+                       cl:*query-io*
+                       cl:*terminal-io*))
 
 ;;; FIXME: make an SB!INT:FUNCTION-DESIGNATOR type for these
 (sb!xc:proclaim '(type (or function symbol cons)
-		       cl:*debugger-hook*
-		       cl:*macroexpand-hook*))
+                       cl:*debugger-hook*
+                       cl:*macroexpand-hook*))
 
 (sb!xc:proclaim '(type unsigned-byte cl:*gensym-counter*))
 
 (sb!xc:proclaim '(type (or unsigned-byte null)
-		       cl:*print-length*
-		       cl:*print-level*
-		       cl:*print-lines*
-		       cl:*print-miser-width*
-		       cl:*print-right-margin*))
+                       cl:*print-length*
+                       cl:*print-level*
+                       cl:*print-lines*
+                       cl:*print-miser-width*
+                       cl:*print-right-margin*))
 
 (sb!xc:proclaim '(type pathname cl:*default-pathname-defaults*))
 
 (sb!xc:proclaim '(type (or pathname null)
-		       cl:*load-pathname*
-		       cl:*load-truename*
-		       cl:*compile-file-pathname*
-		       cl:*compile-file-truename*))
+                       cl:*load-pathname*
+                       cl:*load-truename*
+                       cl:*compile-file-pathname*
+                       cl:*compile-file-truename*))