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

diff --git a/src/code/cl-specials.lisp b/src/code/cl-specials.lisp
index ec7494a..7b51118 100644
--- a/src/code/cl-specials.lisp
+++ b/src/code/cl-specials.lisp
@@ -66,3 +66,70 @@
 			  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*))
+
+(sb!xc:proclaim '(type sb!pretty::pprint-dispatch-table
+		       cl:*print-pprint-dispatch*))
+
+(sb!xc:proclaim '(type readtable cl:*readtable*))
+
+(sb!xc:proclaim '(type (integer 2 36) cl:*print-base* cl:*read-base*))
+
+(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*))
+
+(sb!xc:proclaim '(type list cl:/ cl:// cl:/// cl:*features* cl:*modules*))
+
+(sb!xc:proclaim '(type sb!kernel:type-specifier cl:*break-on-signals*))
+
+(sb!xc:proclaim '(type package cl:*package*))
+
+(sb!xc:proclaim '(type random-state cl:*random-state*))
+
+;; KLUDGE: some of these are more specific than just STREAM.  However,
+;; (a) we can't express that portably, and (b) we probably violate
+;; these requirements somewhere as of sbcl-0.8.0.  (and maybe we break
+;; 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*))
+
+;;; FIXME: make an SB!INT:FUNCTION-DESIGNATOR type for these
+(sb!xc:proclaim '(type (or function symbol cons)
+		       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*))
+
+(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*))