/[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.6 by camm, Fri Oct 4 03:30:34 2002 UTC revision 1.7 by camm, Sat Oct 5 18:34:15 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::boolean 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::arithmetic-error lisp::base-char lisp::base-string lisp::broadcast-stream lisp::built-in-class lisp::cell-error lisp::class lisp::concatenated-stream lisp::condition lisp::control-error lisp::division-by-zero lisp::echo-stream lisp::end-of-file lisp::error lisp::extended-char lisp::file-error lisp::file-stream lisp::floating-point-inexact lisp::floating-point-invalid-operation lisp::floating-point-overflow lisp::floating-point-underflow lisp::generic-function lisp::logical-pathname lisp::method lisp::package-error lisp::parse-error lisp::print-not-readable lisp::program-error lisp::reader-error lisp::serious-condition lisp::simple-base-string lisp::simple-condition lisp::simple-type-error lisp::simple-warning lisp::standard-class lisp::standard-generic-function lisp::standard-method lisp::standard-object lisp::storage-condition lisp::stream-error lisp::string-stream lisp::structure-class lisp::style-warning lisp::synonym-stream lisp::two-way-stream lisp::type-error lisp::unbound-slot lisp::unbound-variable lisp::undefined-function lisp::warning) 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::base-string lisp::simple-base-string) lisp::atom (lisp::cons lisp::list) lisp::symbol (lisp::symbol lisp::keyword lisp::boolean lisp::null) (lisp::compiled-function lisp::generic-function lisp::standard-generic-function) lisp::generic-function lisp::standard-generic-function 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 lisp::vector lisp::array lisp::sequence) (lisp::character lisp::string-char) (lisp::string lisp::simple-string lisp::base-string lisp::vector lisp::simple-vector lisp::simple-array lisp::array lisp::sequence) (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::boolean 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::base-string lisp::base-char lisp::simple-base-string lisp::character lisp::make-sequence 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=#:g1027) 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=#:g1028) 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=#:g1029) 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=#:g1030) 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=#:g1031) 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=#:g1032) 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=#:g1033) 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=#:g1034) 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=#:g1035) 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=#:g1036) 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=#:g1037) 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=#:g1038) 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=#:g1039) 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=#:g1040) 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=#:g1041) 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=#:g1042 (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 75 (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 lisp::structure-object lisp::structure system::type-predicate lisp::fixnum lisp::bignum lisp::ratio lisp::short-float lisp::long-float system::s-data system::deftype-definition "ERROR" (lisp::t lisp::nil lisp::boolean 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::method-combination 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::arithmetic-error lisp::base-char lisp::base-string lisp::broadcast-stream lisp::built-in-class lisp::cell-error lisp::class lisp::concatenated-stream lisp::condition lisp::control-error lisp::division-by-zero lisp::echo-stream lisp::end-of-file lisp::error lisp::extended-char lisp::file-error lisp::file-stream lisp::floating-point-inexact lisp::floating-point-invalid-operation lisp::floating-point-overflow lisp::floating-point-underflow lisp::generic-function lisp::logical-pathname lisp::method lisp::package-error lisp::parse-error lisp::print-not-readable lisp::program-error lisp::reader-error lisp::serious-condition lisp::simple-base-string lisp::simple-condition lisp::simple-type-error lisp::simple-warning lisp::standard-class lisp::standard-generic-function lisp::standard-method lisp::standard-object lisp::storage-condition lisp::stream-error lisp::string-stream lisp::structure-class lisp::style-warning lisp::synonym-stream lisp::two-way-stream lisp::structure-object lisp::type-error lisp::unbound-slot lisp::unbound-variable lisp::undefined-function lisp::warning) lisp::satisfies lisp::member lisp::or lisp::and lisp::not lisp::common lisp::list (lisp::null lisp::cons) lisp::sequence (lisp::null lisp::cons lisp::list lisp::base-string lisp::simple-base-string) lisp::atom (lisp::cons lisp::list) lisp::symbol (lisp::keyword lisp::boolean lisp::null) (lisp::compiled-function lisp::generic-function lisp::standard-generic-function) lisp::generic-function lisp::standard-generic-function lisp::boolean lisp::null lisp::standard-object (lisp::class lisp::built-in-class lisp::structure-class lisp::standard-class lisp::method lisp::standard-method) lisp::class (lisp::built-in-class lisp::structure-class lisp::standard-class) lisp::condition "ERROR" (lisp::serious-condition lisp::error lisp::type-error lisp::simple-type-error lisp::parse-error lisp::cell-error lisp::unbound-slot lisp::warning lisp::style-warning lisp::storage-condition lisp::simple-warning lisp::unbound-variable lisp::control-error lisp::program-error lisp::undefined-function lisp::package-error lisp::arithmetic-error lisp::division-by-zero lisp::simple-condition lisp::floating-point-invalid-operation lisp::floating-point-inexact lisp::floating-point-overflow lisp::floating-point-underflow lisp::file-error lisp::stream-error lisp::end-of-file lisp::print-not-readable lisp::reader-error) lisp::serious-condition "ERROR" (lisp::error lisp::type-error lisp::simple-type-error lisp::parse-error lisp::cell-error lisp::unbound-slot lisp::storage-condition lisp::unbound-variable lisp::control-error lisp::program-error lisp::undefined-function lisp::package-error lisp::arithmetic-error lisp::division-by-zero lisp::simple-type-error lisp::floating-point-invalid-operation lisp::floating-point-inexact lisp::floating-point-overflow lisp::floating-point-underflow lisp::file-error lisp::stream-error lisp::end-of-file lisp::print-not-readable lisp::reader-error) lisp::type-error lisp::simple-type-error lisp::parse-error lisp::reader-error lisp::stream-error (lisp::reader-error lisp::end-of-file) "ERROR" lisp::error (lisp::simple-type-error lisp::type-error lisp::parse-error lisp::cell-error lisp::unbound-slot lisp::unbound-variable lisp::control-error lisp::program-error lisp::undefined-function lisp::package-error lisp::arithmetic-error lisp::division-by-zero lisp::simple-type-error lisp::floating-point-invalid-operation lisp::floating-point-inexact lisp::floating-point-overflow lisp::floating-point-underflow lisp::file-error lisp::stream-error lisp::end-of-file lisp::print-not-readable lisp::reader-error) lisp::stream (lisp::broadcast-stream lisp::concatenated-stream lisp::echo-stream lisp::file-stream lisp::string-stream lisp::synonym-stream lisp::two-way-stream) lisp::pathname lisp::logical-pathname lisp::method lisp::standard-method lisp::simple-condition (lisp::simple-type-error lisp::simple-warning) (lisp::simple-type-error lisp::simple-warning) lisp::cell-error (lisp::unbound-slot lisp::unbound-variable lisp::undefined-function) lisp::warning (lisp::style-warning lisp::simple-warning) lisp::arithmetic-error (lisp::division-by-zero lisp::floating-point-invalid-operation lisp::floating-point-inexact lisp::floating-point-overflow lisp::floating-point-underflow) lisp::keyword 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::real (lisp::fixnum lisp::integer lisp::bignum lisp::float lisp::short-float lisp::single-float lisp::double-float lisp::long-float lisp::real lisp::ratio lisp::rational) (lisp::* lisp::*) (lisp::* lisp::*) (lisp::base-char lisp::string-char lisp::character) (lisp::string lisp::vector lisp::array lisp::sequence) (lisp::character lisp::string-char) (lisp::character lisp::string-char) (lisp::string lisp::simple-string lisp::base-string lisp::vector lisp::simple-vector lisp::simple-array lisp::array lisp::sequence) 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::standard-char lisp::base-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::base-string lisp::extended-char lisp::simple-base-string lisp::make-sequence 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=#:g1027) 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=#:g1028) 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=#:g1029) 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=#:g1030) 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=#:g1031) 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=#:g1032) 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=#:g1033) 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=#:g1034) 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=#:g1035) 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=#:g1036) 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=#:g1037) 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=#:g1038) 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=#:g1039) 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=#:g1040) 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=#:g1041) 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=#:g1042 (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 113 (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.6  
changed lines
  Added in v.1.7

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