/[gcl]/gcl/lsp/gcl_predlib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_predlib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by camm, Thu Oct 13 22:01:22 2005 UTC revision 1.33 by camm, Tue Oct 18 02:12:11 2005 UTC
# Line 423  Line 423 
423  (deftype stream () `(or broadcast-stream concatenated-stream echo-stream  (deftype stream () `(or broadcast-stream concatenated-stream echo-stream
424                          file-stream string-stream synonym-stream two-way-stream))                          file-stream string-stream synonym-stream two-way-stream))
425    
426    (deftype input-stream ()  `(and stream (satisfies  input-stream-p)))
427    (deftype output-stream () `(and stream (satisfies  output-stream-p)))
428    
429  (deftype bignum () `(and integer (not fixnum)))  (deftype bignum () `(and integer (not fixnum)))
430  (deftype non-negative-bignum () `(and non-negative-byte (not non-negative-fixnum)))  (deftype non-negative-bignum () `(and non-negative-byte (not non-negative-fixnum)))
431  (deftype negative-bignum () `(and negative-byte (not negative-fixnum)))  (deftype negative-bignum () `(and negative-byte (not negative-fixnum)))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26