/[gcl]/gcl/lsp/predlib.data
ViewVC logotype

Diff of /gcl/lsp/predlib.data

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:07 1999 UTC revision 1.2 by camm, Fri Jul 12 22:00:48 2002 UTC
# Line 2  Line 2 
2  #(#!  #(#!
3  (lisp::in-package (lisp::quote lisp::system))#!  (lisp::in-package (lisp::quote lisp::system))#!
4  (lisp::export (lisp::quote (lisp::deftype lisp::typep lisp::subtypep lisp::coerce)) (lisp::quote system::lisp))  (lisp::export (lisp::quote (lisp::deftype lisp::typep lisp::subtypep lisp::coerce)) (lisp::quote system::lisp))
5  #(lisp::nil lisp::&optional #0=(lisp::quote lisp::*) lisp::eval-when (lisp::compile lisp::eval lisp::load) system::putprop lisp::quote lisp::deftype #1=(lisp::quote system::deftype-form) lisp::function lisp::lambda #2=(lisp::quote system::deftype-definition) #3=(lisp::quote system::type-documentation) lisp::integer -2147483648 2147483647 #4=(lisp::integer 0 1) lisp::* #5=(lisp::integer lisp::* lisp::*) #6=(lisp::integer 0 lisp::*) lisp::signed-byte lisp::unsigned-byte lisp::array lisp::vector lisp::string-char lisp::bit lisp::simple-array system::type-predicate lisp::fixnum lisp::bignum lisp::ratio lisp::short-float lisp::long-float system::s-data system::deftype-definition (lisp::t lisp::nil lisp::null lisp::symbol lisp::keyword lisp::atom lisp::cons lisp::list lisp::sequence lisp::signed-char lisp::unsigned-char lisp::signed-short lisp::unsigned-short lisp::number lisp::integer lisp::bignum lisp::rational lisp::ratio lisp::float lisp::short-float lisp::single-float lisp::double-float lisp::long-float lisp::complex lisp::character lisp::standard-char lisp::string-char lisp::real lisp::package lisp::stream lisp::pathname lisp::readtable lisp::hash-table lisp::random-state lisp::structure lisp::array lisp::simple-array lisp::function lisp::compiled-function) lisp::member lisp::or lisp::and lisp::not lisp::common lisp::list (lisp::null lisp::cons lisp::list) lisp::sequence (lisp::null lisp::cons lisp::list lisp::sequence) lisp::atom (lisp::cons lisp::list) lisp::symbol (lisp::symbol lisp::keyword lisp::null) lisp::keyword lisp::null lisp::number (lisp::bignum lisp::integer lisp::ratio lisp::rational lisp::float lisp::real lisp::short-float lisp::single-float lisp::double-float lisp::long-float lisp::complex lisp::number) lisp::structure lisp::real (lisp::fixnum lisp::integer lisp::bignum lisp::float lisp::single-float lisp::double-float lisp::long-float lisp::real lisp::rational) (lisp::* lisp::*) (lisp::* lisp::*) (lisp::standard-char lisp::string-char lisp::character) (lisp::string-char lisp::character) (lisp::integer lisp::rational) lisp::rational lisp::float (lisp::short-float lisp::float) (lisp::single-float lisp::double-float lisp::long-float lisp::float) lisp::complex "Cannot coerce to an multi-dimensional array." 0.0S0 lisp::nil "Cannot coerce ~S to ~S." system::*gcl-version* system::*gcl-major-version* lisp::*load-verbose* "[compiled in GCL ~a-~a] " system::find-documentation lisp::array-has-fill-pointer-p lisp::typep lisp::satisfies lisp::standard-char system::in-interval-p lisp::rationalp lisp::realp lisp::single-float lisp::double-float lisp::string system::match-dimensions lisp::array-dimensions lisp::bit-vector lisp::simple-string lisp::simple-bit-vector lisp::simple-vector system::simple-array-p system::best-array-element-type system::structure-subtype-p system::normalize-type lisp::subtypep system::known-type-p system::sub-interval-p lisp::make-sequence lisp::character lisp::coerce (system::%init . #((system::setvv 0 lisp::lambda-list-keywords) (system::mm (lisp::quote lisp::deftype) 0) (system::putprop (lisp::quote lisp::fixnum) (lisp::quote (lisp::deftype lisp::fixnum lisp::nil (lisp::list (lisp::quote lisp::integer) lisp::most-negative-fixnum lisp::most-positive-fixnum))) #1#) (system::mf (lisp::quote #7=#:g1073) 1) (system::putprop (lisp::quote lisp::fixnum) (lisp::symbol-function (lisp::quote #7#)) #2#) (system::putprop (lisp::quote lisp::fixnum) lisp::nil #3#) (system::putprop (lisp::quote lisp::bit) (lisp::quote (lisp::deftype lisp::bit lisp::nil (lisp::quote #4#))) #1#) (system::mf (lisp::quote #8=#:g1074) 2) (system::putprop (lisp::quote lisp::bit) (lisp::symbol-function (lisp::quote #8#)) #2#) (system::putprop (lisp::quote lisp::bit) lisp::nil #3#) (system::putprop (lisp::quote lisp::mod) (lisp::quote (lisp::deftype lisp::mod (system::n) (lisp::list (lisp::quote lisp::integer) 0 (lisp::1- system::n)))) #1#) (system::mf (lisp::quote #9=#:g1075) 3) (system::putprop (lisp::quote lisp::mod) (lisp::symbol-function (lisp::quote #9#)) #2#) (system::putprop (lisp::quote lisp::mod) lisp::nil #3#) (system::putprop (lisp::quote lisp::signed-byte) (lisp::quote (lisp::deftype lisp::signed-byte (lisp::&optional (system::s #0#)) (lisp::if (lisp::eq system::s (lisp::quote lisp::*)) (lisp::quote #5#) (lisp::list (lisp::quote lisp::integer) (lisp::- (lisp::expt 2 (lisp::1- system::s))) (lisp::1- (lisp::expt 2 (lisp::1- system::s))))))) #1#) (system::mf (lisp::quote #10=#:g1076) 4) (system::putprop (lisp::quote lisp::signed-byte) (lisp::symbol-function (lisp::quote #10#)) #2#) (system::putprop (lisp::quote lisp::signed-byte) lisp::nil #3#) (system::putprop (lisp::quote lisp::unsigned-byte) (lisp::quote (lisp::deftype lisp::unsigned-byte (lisp::&optional (system::s #0#)) (lisp::if (lisp::eq system::s (lisp::quote lisp::*)) (lisp::quote #6#) (lisp::list (lisp::quote lisp::integer) 0 (lisp::1- (lisp::expt 2 system::s)))))) #1#) (system::mf (lisp::quote #11=#:g1077) 5) (system::putprop (lisp::quote lisp::unsigned-byte) (lisp::symbol-function (lisp::quote #11#)) #2#) (system::putprop (lisp::quote lisp::unsigned-byte) lisp::nil #3#) (system::putprop (lisp::quote lisp::signed-char) (lisp::quote (lisp::deftype lisp::signed-char lisp::nil (lisp::list (lisp::quote lisp::signed-byte) system::char-size))) #1#) (system::mf (lisp::quote #12=#:g1078) 6) (system::putprop (lisp::quote lisp::signed-char) (lisp::symbol-function (lisp::quote #12#)) #2#) (system::putprop (lisp::quote lisp::signed-char) lisp::nil #3#) (system::putprop (lisp::quote lisp::unsigned-char) (lisp::quote (lisp::deftype lisp::unsigned-char lisp::nil (lisp::list (lisp::quote lisp::unsigned-byte) system::char-size))) #1#) (system::mf (lisp::quote #13=#:g1079) 7) (system::putprop (lisp::quote lisp::unsigned-char) (lisp::symbol-function (lisp::quote #13#)) #2#) (system::putprop (lisp::quote lisp::unsigned-char) lisp::nil #3#) (system::putprop (lisp::quote lisp::signed-short) (lisp::quote (lisp::deftype lisp::signed-short lisp::nil (lisp::list (lisp::quote lisp::signed-byte) system::short-size))) #1#) (system::mf (lisp::quote #14=#:g1080) 8) (system::putprop (lisp::quote lisp::signed-short) (lisp::symbol-function (lisp::quote #14#)) #2#) (system::putprop (lisp::quote lisp::signed-short) lisp::nil #3#) (system::putprop (lisp::quote lisp::unsigned-short) (lisp::quote (lisp::deftype lisp::unsigned-short lisp::nil (lisp::list (lisp::quote lisp::unsigned-byte) system::short-size))) #1#) (system::mf (lisp::quote #15=#:g1081) 9) (system::putprop (lisp::quote lisp::unsigned-short) (lisp::symbol-function (lisp::quote #15#)) #2#) (system::putprop (lisp::quote lisp::unsigned-short) lisp::nil #3#) (system::putprop (lisp::quote lisp::vector) (lisp::quote (lisp::deftype lisp::vector (lisp::&optional (system::element-type #0#) (system::size #0#)) (lisp::list (lisp::quote lisp::array) system::element-type (lisp::list system::size)))) #1#) (system::mf (lisp::quote #16=#:g1082) 10) (system::putprop (lisp::quote lisp::vector) (lisp::symbol-function (lisp::quote #16#)) #2#) (system::putprop (lisp::quote lisp::vector) lisp::nil #3#) (system::putprop (lisp::quote lisp::string) (lisp::quote (lisp::deftype lisp::string (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::vector) (lisp::quote lisp::string-char) system::size))) #1#) (system::mf (lisp::quote #17=#:g1083) 11) (system::putprop (lisp::quote lisp::string) (lisp::symbol-function (lisp::quote #17#)) #2#) (system::putprop (lisp::quote lisp::string) lisp::nil #3#) (system::putprop (lisp::quote lisp::bit-vector) (lisp::quote (lisp::deftype lisp::bit-vector (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::vector) (lisp::quote lisp::bit) system::size))) #1#) (system::mf (lisp::quote #18=#:g1084) 12) (system::putprop (lisp::quote lisp::bit-vector) (lisp::symbol-function (lisp::quote #18#)) #2#) (system::putprop (lisp::quote lisp::bit-vector) lisp::nil #3#) (system::putprop (lisp::quote lisp::simple-vector) (lisp::quote (lisp::deftype lisp::simple-vector (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::simple-array) lisp::t (lisp::list system::size)))) #1#) (system::mf (lisp::quote #19=#:g1085) 13) (system::putprop (lisp::quote lisp::simple-vector) (lisp::symbol-function (lisp::quote #19#)) #2#) (system::putprop (lisp::quote lisp::simple-vector) lisp::nil #3#) (system::putprop (lisp::quote lisp::simple-string) (lisp::quote (lisp::deftype lisp::simple-string (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::simple-array) (lisp::quote lisp::string-char) (lisp::list system::size)))) #1#) (system::mf (lisp::quote #20=#:g1086) 14) (system::putprop (lisp::quote lisp::simple-string) (lisp::symbol-function (lisp::quote #20#)) #2#) (system::putprop (lisp::quote lisp::simple-string) lisp::nil #3#) (system::putprop (lisp::quote lisp::simple-bit-vector) (lisp::quote (lisp::deftype lisp::simple-bit-vector (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::simple-array) (lisp::quote lisp::bit) (lisp::list system::size)))) #1#) (system::mf (lisp::quote #21=#:g1087) 15) (system::putprop (lisp::quote lisp::simple-bit-vector) (lisp::symbol-function (lisp::quote #21#)) #2#) (system::putprop (lisp::quote lisp::simple-bit-vector) lisp::nil #3#) (system::mfsfun (lisp::quote system::simple-array-p) 16 1) (lisp::block lisp::nil (lisp::let ((system::l (lisp::quote ((lisp::null . lisp::null) (lisp::symbol . lisp::symbolp) (lisp::keyword . lisp::keywordp) (lisp::atom . lisp::atom) (lisp::cons . lisp::consp) (lisp::list . lisp::listp) (lisp::number . lisp::numberp) (lisp::character . lisp::characterp) (lisp::package . lisp::packagep) (lisp::stream . lisp::streamp) (lisp::pathname . lisp::pathnamep) (lisp::readtable . lisp::readtablep) (lisp::hash-table . lisp::hash-table-p) (lisp::random-state . lisp::random-state-p) (lisp::structure . system::structurep) (lisp::function . lisp::functionp) (lisp::compiled-function . lisp::compiled-function-p) (lisp::common . lisp::commonp))))) (lisp::tagbody #22=#:g1088 (lisp::if (lisp::endp system::l) (lisp::return (lisp::progn))) (lisp::tagbody (system::putprop (lisp::caar system::l) (lisp::cdar system::l) (lisp::quote system::type-predicate))) (lisp::psetq system::l (lisp::cdr system::l)) (lisp::go #22#)))) (system::mf (lisp::quote lisp::typep) 17) (system::mfsfun (lisp::quote system::normalize-type) 18 1) (system::mfsfun (lisp::quote system::known-type-p) 19 1) (system::mf (lisp::quote lisp::subtypep) 20) (system::mfsfun (lisp::quote system::sub-interval-p) 21 2) (system::mfsfun (lisp::quote system::in-interval-p) 22 2) (system::mfsfun (lisp::quote system::match-dimensions) 23 2) (system::setvv 68 (lisp::* 0.0F0 lisp::least-positive-long-float)) (system::mfsfun (lisp::quote lisp::coerce) 24 2) (system::*make-special (lisp::quote system::*gcl-version*)) (lisp::or (lisp::boundp (lisp::quote system::*gcl-version*)) (lisp::setq system::*gcl-version* lisp::nil)) (system::*make-special (lisp::quote system::*gcl-major-version*)) (lisp::or (lisp::boundp (lisp::quote system::*gcl-major-version*)) (lisp::setq system::*gcl-major-version* lisp::nil)) (system::mf (lisp::quote system::warn-version) 25))))  #(lisp::nil lisp::&optional #0=(lisp::quote lisp::*) lisp::eval-when (lisp::compile lisp::eval lisp::load) system::putprop lisp::quote lisp::deftype #1=(lisp::quote system::deftype-form) lisp::function lisp::lambda #2=(lisp::quote system::deftype-definition) #3=(lisp::quote system::type-documentation) lisp::integer -2147483648 2147483647 #4=(lisp::integer 0 1) lisp::* #5=(lisp::integer lisp::* lisp::*) #6=(lisp::integer 0 lisp::*) lisp::signed-byte lisp::unsigned-byte lisp::array lisp::vector lisp::string-char lisp::bit lisp::simple-array system::type-predicate lisp::fixnum lisp::bignum lisp::ratio lisp::short-float lisp::long-float system::s-data system::deftype-definition (lisp::t lisp::nil lisp::null lisp::symbol lisp::keyword lisp::atom lisp::cons lisp::list lisp::sequence lisp::signed-char lisp::unsigned-char lisp::signed-short lisp::unsigned-short lisp::number lisp::integer lisp::bignum lisp::rational lisp::ratio lisp::float lisp::short-float lisp::single-float lisp::double-float lisp::long-float lisp::complex lisp::character lisp::standard-char lisp::string-char lisp::real lisp::package lisp::stream lisp::pathname lisp::readtable lisp::hash-table lisp::random-state lisp::structure lisp::array lisp::simple-array lisp::function lisp::compiled-function) lisp::member lisp::or lisp::and lisp::not lisp::common lisp::list (lisp::null lisp::cons lisp::list) lisp::sequence (lisp::null lisp::cons lisp::list lisp::sequence) lisp::atom (lisp::cons lisp::list) lisp::symbol (lisp::symbol lisp::keyword lisp::null) lisp::keyword lisp::null lisp::number (lisp::bignum lisp::integer lisp::ratio lisp::rational lisp::float lisp::real lisp::short-float lisp::single-float lisp::double-float lisp::long-float lisp::complex lisp::number) lisp::structure lisp::real (lisp::fixnum lisp::integer lisp::bignum lisp::float lisp::single-float lisp::double-float lisp::long-float lisp::real lisp::rational) (lisp::* lisp::*) (lisp::* lisp::*) (lisp::standard-char lisp::string-char lisp::character) (lisp::string-char lisp::character) (lisp::integer lisp::rational) lisp::rational lisp::float (lisp::short-float lisp::float) (lisp::single-float lisp::double-float lisp::long-float lisp::float) lisp::complex "Cannot coerce to an multi-dimensional array." 0.0S0 lisp::nil "Cannot coerce ~S to ~S." system::*gcl-version* system::*gcl-major-version* lisp::*load-verbose* "[compiled in GCL ~a-~a] " system::find-documentation lisp::array-has-fill-pointer-p lisp::typep lisp::satisfies lisp::standard-char system::in-interval-p lisp::rationalp lisp::realp lisp::single-float lisp::double-float lisp::string system::match-dimensions lisp::array-dimensions lisp::bit-vector lisp::simple-string lisp::simple-bit-vector lisp::simple-vector system::simple-array-p system::best-array-element-type system::structure-subtype-p system::normalize-type lisp::subtypep system::known-type-p system::sub-interval-p lisp::make-sequence lisp::character lisp::coerce (system::%init . #((system::setvv 0 lisp::lambda-list-keywords) (system::mm (lisp::quote lisp::deftype) 0) (system::putprop (lisp::quote lisp::fixnum) (lisp::quote (lisp::deftype lisp::fixnum lisp::nil (lisp::list (lisp::quote lisp::integer) lisp::most-negative-fixnum lisp::most-positive-fixnum))) #1#) (system::mf (lisp::quote #7=#:g1024) 1) (system::putprop (lisp::quote lisp::fixnum) (lisp::symbol-function (lisp::quote #7#)) #2#) (system::putprop (lisp::quote lisp::fixnum) lisp::nil #3#) (system::putprop (lisp::quote lisp::bit) (lisp::quote (lisp::deftype lisp::bit lisp::nil (lisp::quote #4#))) #1#) (system::mf (lisp::quote #8=#:g1025) 2) (system::putprop (lisp::quote lisp::bit) (lisp::symbol-function (lisp::quote #8#)) #2#) (system::putprop (lisp::quote lisp::bit) lisp::nil #3#) (system::putprop (lisp::quote lisp::mod) (lisp::quote (lisp::deftype lisp::mod (system::n) (lisp::list (lisp::quote lisp::integer) 0 (lisp::1- system::n)))) #1#) (system::mf (lisp::quote #9=#:g1026) 3) (system::putprop (lisp::quote lisp::mod) (lisp::symbol-function (lisp::quote #9#)) #2#) (system::putprop (lisp::quote lisp::mod) lisp::nil #3#) (system::putprop (lisp::quote lisp::signed-byte) (lisp::quote (lisp::deftype lisp::signed-byte (lisp::&optional (system::s #0#)) (lisp::if (lisp::eq system::s (lisp::quote lisp::*)) (lisp::quote #5#) (lisp::list (lisp::quote lisp::integer) (lisp::- (lisp::expt 2 (lisp::1- system::s))) (lisp::1- (lisp::expt 2 (lisp::1- system::s))))))) #1#) (system::mf (lisp::quote #10=#:g1027) 4) (system::putprop (lisp::quote lisp::signed-byte) (lisp::symbol-function (lisp::quote #10#)) #2#) (system::putprop (lisp::quote lisp::signed-byte) lisp::nil #3#) (system::putprop (lisp::quote lisp::unsigned-byte) (lisp::quote (lisp::deftype lisp::unsigned-byte (lisp::&optional (system::s #0#)) (lisp::if (lisp::eq system::s (lisp::quote lisp::*)) (lisp::quote #6#) (lisp::list (lisp::quote lisp::integer) 0 (lisp::1- (lisp::expt 2 system::s)))))) #1#) (system::mf (lisp::quote #11=#:g1028) 5) (system::putprop (lisp::quote lisp::unsigned-byte) (lisp::symbol-function (lisp::quote #11#)) #2#) (system::putprop (lisp::quote lisp::unsigned-byte) lisp::nil #3#) (system::putprop (lisp::quote lisp::signed-char) (lisp::quote (lisp::deftype lisp::signed-char lisp::nil (lisp::list (lisp::quote lisp::signed-byte) system::char-size))) #1#) (system::mf (lisp::quote #12=#:g1029) 6) (system::putprop (lisp::quote lisp::signed-char) (lisp::symbol-function (lisp::quote #12#)) #2#) (system::putprop (lisp::quote lisp::signed-char) lisp::nil #3#) (system::putprop (lisp::quote lisp::unsigned-char) (lisp::quote (lisp::deftype lisp::unsigned-char lisp::nil (lisp::list (lisp::quote lisp::unsigned-byte) system::char-size))) #1#) (system::mf (lisp::quote #13=#:g1030) 7) (system::putprop (lisp::quote lisp::unsigned-char) (lisp::symbol-function (lisp::quote #13#)) #2#) (system::putprop (lisp::quote lisp::unsigned-char) lisp::nil #3#) (system::putprop (lisp::quote lisp::signed-short) (lisp::quote (lisp::deftype lisp::signed-short lisp::nil (lisp::list (lisp::quote lisp::signed-byte) system::short-size))) #1#) (system::mf (lisp::quote #14=#:g1031) 8) (system::putprop (lisp::quote lisp::signed-short) (lisp::symbol-function (lisp::quote #14#)) #2#) (system::putprop (lisp::quote lisp::signed-short) lisp::nil #3#) (system::putprop (lisp::quote lisp::unsigned-short) (lisp::quote (lisp::deftype lisp::unsigned-short lisp::nil (lisp::list (lisp::quote lisp::unsigned-byte) system::short-size))) #1#) (system::mf (lisp::quote #15=#:g1032) 9) (system::putprop (lisp::quote lisp::unsigned-short) (lisp::symbol-function (lisp::quote #15#)) #2#) (system::putprop (lisp::quote lisp::unsigned-short) lisp::nil #3#) (system::putprop (lisp::quote lisp::vector) (lisp::quote (lisp::deftype lisp::vector (lisp::&optional (system::element-type #0#) (system::size #0#)) (lisp::list (lisp::quote lisp::array) system::element-type (lisp::list system::size)))) #1#) (system::mf (lisp::quote #16=#:g1033) 10) (system::putprop (lisp::quote lisp::vector) (lisp::symbol-function (lisp::quote #16#)) #2#) (system::putprop (lisp::quote lisp::vector) lisp::nil #3#) (system::putprop (lisp::quote lisp::string) (lisp::quote (lisp::deftype lisp::string (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::vector) (lisp::quote lisp::string-char) system::size))) #1#) (system::mf (lisp::quote #17=#:g1034) 11) (system::putprop (lisp::quote lisp::string) (lisp::symbol-function (lisp::quote #17#)) #2#) (system::putprop (lisp::quote lisp::string) lisp::nil #3#) (system::putprop (lisp::quote lisp::bit-vector) (lisp::quote (lisp::deftype lisp::bit-vector (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::vector) (lisp::quote lisp::bit) system::size))) #1#) (system::mf (lisp::quote #18=#:g1035) 12) (system::putprop (lisp::quote lisp::bit-vector) (lisp::symbol-function (lisp::quote #18#)) #2#) (system::putprop (lisp::quote lisp::bit-vector) lisp::nil #3#) (system::putprop (lisp::quote lisp::simple-vector) (lisp::quote (lisp::deftype lisp::simple-vector (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::simple-array) lisp::t (lisp::list system::size)))) #1#) (system::mf (lisp::quote #19=#:g1036) 13) (system::putprop (lisp::quote lisp::simple-vector) (lisp::symbol-function (lisp::quote #19#)) #2#) (system::putprop (lisp::quote lisp::simple-vector) lisp::nil #3#) (system::putprop (lisp::quote lisp::simple-string) (lisp::quote (lisp::deftype lisp::simple-string (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::simple-array) (lisp::quote lisp::string-char) (lisp::list system::size)))) #1#) (system::mf (lisp::quote #20=#:g1037) 14) (system::putprop (lisp::quote lisp::simple-string) (lisp::symbol-function (lisp::quote #20#)) #2#) (system::putprop (lisp::quote lisp::simple-string) lisp::nil #3#) (system::putprop (lisp::quote lisp::simple-bit-vector) (lisp::quote (lisp::deftype lisp::simple-bit-vector (lisp::&optional (system::size #0#)) (lisp::list (lisp::quote lisp::simple-array) (lisp::quote lisp::bit) (lisp::list system::size)))) #1#) (system::mf (lisp::quote #21=#:g1038) 15) (system::putprop (lisp::quote lisp::simple-bit-vector) (lisp::symbol-function (lisp::quote #21#)) #2#) (system::putprop (lisp::quote lisp::simple-bit-vector) lisp::nil #3#) (system::mfsfun (lisp::quote system::simple-array-p) 16 1) (lisp::block lisp::nil (lisp::let ((system::l (lisp::quote ((lisp::null . lisp::null) (lisp::symbol . lisp::symbolp) (lisp::keyword . lisp::keywordp) (lisp::atom . lisp::atom) (lisp::cons . lisp::consp) (lisp::list . lisp::listp) (lisp::number . lisp::numberp) (lisp::character . lisp::characterp) (lisp::package . lisp::packagep) (lisp::stream . lisp::streamp) (lisp::pathname . lisp::pathnamep) (lisp::readtable . lisp::readtablep) (lisp::hash-table . lisp::hash-table-p) (lisp::random-state . lisp::random-state-p) (lisp::structure . system::structurep) (lisp::function . lisp::functionp) (lisp::compiled-function . lisp::compiled-function-p) (lisp::common . lisp::commonp))))) (lisp::tagbody #22=#:g1039 (lisp::if (lisp::endp system::l) (lisp::return (lisp::progn))) (lisp::tagbody (system::putprop (lisp::caar system::l) (lisp::cdar system::l) (lisp::quote system::type-predicate))) (lisp::psetq system::l (lisp::cdr system::l)) (lisp::go #22#)))) (system::mf (lisp::quote lisp::typep) 17) (system::mfsfun (lisp::quote system::normalize-type) 18 1) (system::mfsfun (lisp::quote system::known-type-p) 19 1) (system::mf (lisp::quote lisp::subtypep) 20) (system::mfsfun (lisp::quote system::sub-interval-p) 21 2) (system::mfsfun (lisp::quote system::in-interval-p) 22 2) (system::mfsfun (lisp::quote system::match-dimensions) 23 2) (system::setvv 68 (lisp::* 0.0F0 lisp::least-positive-long-float)) (system::mfsfun (lisp::quote lisp::coerce) 24 2) (system::*make-special (lisp::quote system::*gcl-version*)) (lisp::or (lisp::boundp (lisp::quote system::*gcl-version*)) (lisp::setq system::*gcl-version* lisp::nil)) (system::*make-special (lisp::quote system::*gcl-major-version*)) (lisp::or (lisp::boundp (lisp::quote system::*gcl-major-version*)) (lisp::setq system::*gcl-major-version* lisp::nil)) (system::mf (lisp::quote system::warn-version) 25))))
6  )  )

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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