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

Diff of /gcl/lsp/gcl_setf.data

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

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:32 2003 UTC
# Line 3  Line 3 
3  (lisp::in-package (lisp::quote user::lisp))#!  (lisp::in-package (lisp::quote user::lisp))#!
4  (lisp::export (lisp::quote (lisp::setf lisp::psetf lisp::shiftf lisp::rotatef lisp::define-modify-macro lisp::defsetf lisp::getf lisp::remf lisp::incf lisp::decf lisp::push lisp::pushnew lisp::pop lisp::define-setf-method lisp::get-setf-method lisp::get-setf-method-multiple-value)))#!  (lisp::export (lisp::quote (lisp::setf lisp::psetf lisp::shiftf lisp::rotatef lisp::define-modify-macro lisp::defsetf lisp::getf lisp::remf lisp::incf lisp::decf lisp::push lisp::pushnew lisp::pop lisp::define-setf-method lisp::get-setf-method lisp::get-setf-method-multiple-value)))#!
5  (lisp::in-package (lisp::quote lisp::system))  (lisp::in-package (lisp::quote lisp::system))
6  #(lisp::eval-when (lisp::compile lisp::eval lisp::load) system::putprop lisp::quote #0=(lisp::quote system::setf-update-fn) lisp::remprop #1=(lisp::quote system::setf-lambda) #2=(lisp::quote system::setf-method) "A doc-string expected." "Extra arguments." #3=(lisp::quote system::setf-documentation) "(store-variable) expected." (lisp::compile lisp::eval lisp::load) #4=(lisp::quote system::setf-lambda) #5=(lisp::quote system::setf-update-fn) #6=(lisp::quote system::setf-method) #7=(lisp::quote system::setf-documentation) lisp::declare lisp::ignore (lisp::compile lisp::eval lisp::load) lisp::function lisp::lambda #8=(lisp::quote system::setf-method) #9=(lisp::quote system::setf-lambda) #10=(lisp::quote system::setf-update-fn) #11=(lisp::quote system::setf-documentation) "Multiple store-variables are not allowed." lisp::setq "Cannot get the setf-method of ~S." "Cannot get setf-method for ~a" system::setf-method system::setf-update-fn system::structure-access system::setf-lambda "Cannot expand the SETF form ~S." system::sputprop lisp::let system::put-f lisp::getf lisp::the "Can't get the setf-method of ~S." lisp::apply lisp::append lisp::list "Can't get the setf-method of ~S." lisp::set-char-bit lisp::char-bit lisp::dpb lisp::ldb lisp::deposit-field lisp::mask-field lisp::values lisp::multiple-value-list lisp::setf lisp::nth lisp::let* system::rplaca-nthcdr system::elt-set system::structure-set "~S is an illegal SETF form." "~S is an illegal SETF form." lisp::progn "~S is an illegal PSETF form." (lisp::nil) "~S is an illegal PSETF form." (lisp::nil) system::access-form lisp::&optional lisp::&rest lisp::list* lisp::defmacro lisp::&environment system::env system::reference lisp::when (lisp::symbolp system::reference) lisp::return-from ((system::access-form system::reference)) (lisp::quote lisp::setq) lisp::multiple-value-bind (system::vars system::vals system::stores system::store-form system::access-form) (lisp::get-setf-method system::reference system::env) (lisp::quote lisp::let*) lisp::mapcar (lisp::function lisp::list) (lisp::append system::vars system::stores) system::vals system::store-form system::flag system::rem-f lisp::+ lisp::- lisp::cons lisp::adjoin lisp::car lisp::cdr lisp::prog1 system::find-documentation system::get-&environment lisp::get-setf-method-multiple-value system::setf-structure-access lisp::get-setf-method lisp::vector system::setf-expand-1 system::setf-expand (system::%init . #((system::mm (lisp::quote lisp::defsetf) 0) (system::mm (lisp::quote lisp::define-setf-method) 1) (system::mf (lisp::quote lisp::get-setf-method) 2) (system::mf (lisp::quote lisp::get-setf-method-multiple-value) 3) (system::putprop (lisp::quote lisp::car) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::car) #5#) (lisp::remprop (lisp::quote lisp::car) #6#) (system::putprop (lisp::quote lisp::car) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdr) #5#) (lisp::remprop (lisp::quote lisp::cdr) #6#) (system::putprop (lisp::quote lisp::cdr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::car) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caar) #5#) (lisp::remprop (lisp::quote lisp::caar) #6#) (system::putprop (lisp::quote lisp::caar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::car) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdar) #5#) (lisp::remprop (lisp::quote lisp::cdar) #6#) (system::putprop (lisp::quote lisp::cdar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadr) #5#) (lisp::remprop (lisp::quote lisp::cadr) #6#) (system::putprop (lisp::quote lisp::cadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddr) #5#) (lisp::remprop (lisp::quote lisp::cddr) #6#) (system::putprop (lisp::quote lisp::cddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaar) #5#) (lisp::remprop (lisp::quote lisp::caaar) #6#) (system::putprop (lisp::quote lisp::caaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaar) #5#) (lisp::remprop (lisp::quote lisp::cdaar) #6#) (system::putprop (lisp::quote lisp::cdaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadar) #5#) (lisp::remprop (lisp::quote lisp::cadar) #6#) (system::putprop (lisp::quote lisp::cadar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddar) #5#) (lisp::remprop (lisp::quote lisp::cddar) #6#) (system::putprop (lisp::quote lisp::cddar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caadr) #5#) (lisp::remprop (lisp::quote lisp::caadr) #6#) (system::putprop (lisp::quote lisp::caadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdadr) #5#) (lisp::remprop (lisp::quote lisp::cdadr) #6#) (system::putprop (lisp::quote lisp::cdadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caddr) #5#) (lisp::remprop (lisp::quote lisp::caddr) #6#) (system::putprop (lisp::quote lisp::caddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdddr) #5#) (lisp::remprop (lisp::quote lisp::cdddr) #6#) (system::putprop (lisp::quote lisp::cdddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaaar) #5#) (lisp::remprop (lisp::quote lisp::caaaar) #6#) (system::putprop (lisp::quote lisp::caaaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaaar) #5#) (lisp::remprop (lisp::quote lisp::cdaaar) #6#) (system::putprop (lisp::quote lisp::cdaaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadaar) #5#) (lisp::remprop (lisp::quote lisp::cadaar) #6#) (system::putprop (lisp::quote lisp::cadaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddaar) #5#) (lisp::remprop (lisp::quote lisp::cddaar) #6#) (system::putprop (lisp::quote lisp::cddaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caadar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cadar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caadar) #5#) (lisp::remprop (lisp::quote lisp::caadar) #6#) (system::putprop (lisp::quote lisp::caadar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdadar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cadar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdadar) #5#) (lisp::remprop (lisp::quote lisp::cdadar) #6#) (system::putprop (lisp::quote lisp::cdadar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caddar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caddar) #5#) (lisp::remprop (lisp::quote lisp::caddar) #6#) (system::putprop (lisp::quote lisp::caddar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdddar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cddar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdddar) #5#) (lisp::remprop (lisp::quote lisp::cdddar) #6#) (system::putprop (lisp::quote lisp::cdddar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaadr) #5#) (lisp::remprop (lisp::quote lisp::caaadr) #6#) (system::putprop (lisp::quote lisp::caaadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaadr) #5#) (lisp::remprop (lisp::quote lisp::cdaadr) #6#) (system::putprop (lisp::quote lisp::cdaadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadadr) #5#) (lisp::remprop (lisp::quote lisp::cadadr) #6#) (system::putprop (lisp::quote lisp::cadadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddadr) #5#) (lisp::remprop (lisp::quote lisp::cddadr) #6#) (system::putprop (lisp::quote lisp::cddadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaddr) #5#) (lisp::remprop (lisp::quote lisp::caaddr) #6#) (system::putprop (lisp::quote lisp::caaddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaddr) #5#) (lisp::remprop (lisp::quote lisp::cdaddr) #6#) (system::putprop (lisp::quote lisp::cdaddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadddr) #5#) (lisp::remprop (lisp::quote lisp::cadddr) #6#) (system::putprop (lisp::quote lisp::cadddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddddr) #5#) (lisp::remprop (lisp::quote lisp::cddddr) #6#) (system::putprop (lisp::quote lisp::cddddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::first) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::first) #5#) (lisp::remprop (lisp::quote lisp::first) #6#) (system::putprop (lisp::quote lisp::first) lisp::nil #7#) (system::putprop (lisp::quote lisp::second) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::second) #5#) (lisp::remprop (lisp::quote lisp::second) #6#) (system::putprop (lisp::quote lisp::second) lisp::nil #7#) (system::putprop (lisp::quote lisp::third) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::third) #5#) (lisp::remprop (lisp::quote lisp::third) #6#) (system::putprop (lisp::quote lisp::third) lisp::nil #7#) (system::putprop (lisp::quote lisp::fourth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::fourth) #5#) (lisp::remprop (lisp::quote lisp::fourth) #6#) (system::putprop (lisp::quote lisp::fourth) lisp::nil #7#) (system::putprop (lisp::quote lisp::fifth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::fifth) #5#) (lisp::remprop (lisp::quote lisp::fifth) #6#) (system::putprop (lisp::quote lisp::fifth) lisp::nil #7#) (system::putprop (lisp::quote lisp::sixth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 5 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::sixth) #5#) (lisp::remprop (lisp::quote lisp::sixth) #6#) (system::putprop (lisp::quote lisp::sixth) lisp::nil #7#) (system::putprop (lisp::quote lisp::seventh) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 6 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::seventh) #5#) (lisp::remprop (lisp::quote lisp::seventh) #6#) (system::putprop (lisp::quote lisp::seventh) lisp::nil #7#) (system::putprop (lisp::quote lisp::eighth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 7 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::eighth) #5#) (lisp::remprop (lisp::quote lisp::eighth) #6#) (system::putprop (lisp::quote lisp::eighth) lisp::nil #7#) (system::putprop (lisp::quote lisp::ninth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 8 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::ninth) #5#) (lisp::remprop (lisp::quote lisp::ninth) #6#) (system::putprop (lisp::quote lisp::ninth) lisp::nil #7#) (system::putprop (lisp::quote lisp::tenth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 9 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::tenth) #5#) (lisp::remprop (lisp::quote lisp::tenth) #6#) (system::putprop (lisp::quote lisp::tenth) lisp::nil #7#) (system::putprop (lisp::quote lisp::rest) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::rest) #5#) (lisp::remprop (lisp::quote lisp::rest) #6#) (system::putprop (lisp::quote lisp::rest) lisp::nil #7#) (system::putprop (lisp::quote lisp::svref) (lisp::quote system::svset) #0#) (lisp::remprop (lisp::quote lisp::svref) #1#) (lisp::remprop (lisp::quote lisp::svref) #2#) (system::putprop (lisp::quote lisp::svref) lisp::nil #3#) (system::putprop (lisp::quote lisp::elt) (lisp::quote system::elt-set) #0#) (lisp::remprop (lisp::quote lisp::elt) #1#) (lisp::remprop (lisp::quote lisp::elt) #2#) (system::putprop (lisp::quote lisp::elt) lisp::nil #3#) (system::putprop (lisp::quote lisp::symbol-value) (lisp::quote lisp::set) #0#) (lisp::remprop (lisp::quote lisp::symbol-value) #1#) (lisp::remprop (lisp::quote lisp::symbol-value) #2#) (system::putprop (lisp::quote lisp::symbol-value) lisp::nil #3#) (system::putprop (lisp::quote lisp::symbol-function) (lisp::quote system::fset) #0#) (lisp::remprop (lisp::quote lisp::symbol-function) #1#) (lisp::remprop (lisp::quote lisp::symbol-function) #2#) (system::putprop (lisp::quote lisp::symbol-function) lisp::nil #3#) (system::putprop (lisp::quote lisp::macro-function) (lisp::quote ((system::s) (system::v) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote system::fset) system::s (lisp::list (lisp::quote lisp::cons) (lisp::quote (lisp::quote lisp::macro)) system::v)) system::v))) #4#) (lisp::remprop (lisp::quote lisp::macro-function) #5#) (lisp::remprop (lisp::quote lisp::macro-function) #6#) (system::putprop (lisp::quote lisp::macro-function) lisp::nil #7#) (system::putprop (lisp::quote lisp::aref) (lisp::quote system::aset) #0#) (lisp::remprop (lisp::quote lisp::aref) #1#) (lisp::remprop (lisp::quote lisp::aref) #2#) (system::putprop (lisp::quote lisp::aref) lisp::nil #3#) (system::putprop (lisp::quote lisp::get) (lisp::quote system::put-aux) #0#) (lisp::remprop (lisp::quote lisp::get) #1#) (lisp::remprop (lisp::quote lisp::get) #2#) (system::putprop (lisp::quote lisp::get) lisp::nil #3#) (system::mm (lisp::quote system::put-aux) 4) (system::putprop (lisp::quote lisp::nth) (lisp::quote ((system::n system::l) (system::v) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) system::n system::l) system::v) system::v))) #4#) (lisp::remprop (lisp::quote lisp::nth) #5#) (lisp::remprop (lisp::quote lisp::nth) #6#) (system::putprop (lisp::quote lisp::nth) lisp::nil #7#) (system::putprop (lisp::quote lisp::char) (lisp::quote system::char-set) #0#) (lisp::remprop (lisp::quote lisp::char) #1#) (lisp::remprop (lisp::quote lisp::char) #2#) (system::putprop (lisp::quote lisp::char) lisp::nil #3#) (system::putprop (lisp::quote lisp::schar) (lisp::quote system::schar-set) #0#) (lisp::remprop (lisp::quote lisp::schar) #1#) (lisp::remprop (lisp::quote lisp::schar) #2#) (system::putprop (lisp::quote lisp::schar) lisp::nil #3#) (system::putprop (lisp::quote lisp::bit) (lisp::quote system::aset) #0#) (lisp::remprop (lisp::quote lisp::bit) #1#) (lisp::remprop (lisp::quote lisp::bit) #2#) (system::putprop (lisp::quote lisp::bit) lisp::nil #3#) (system::putprop (lisp::quote lisp::sbit) (lisp::quote system::aset) #0#) (lisp::remprop (lisp::quote lisp::sbit) #1#) (lisp::remprop (lisp::quote lisp::sbit) #2#) (system::putprop (lisp::quote lisp::sbit) lisp::nil #3#) (system::putprop (lisp::quote lisp::fill-pointer) (lisp::quote system::fill-pointer-set) #0#) (lisp::remprop (lisp::quote lisp::fill-pointer) #1#) (lisp::remprop (lisp::quote lisp::fill-pointer) #2#) (system::putprop (lisp::quote lisp::fill-pointer) lisp::nil #3#) (system::putprop (lisp::quote lisp::symbol-plist) (lisp::quote system::set-symbol-plist) #0#) (lisp::remprop (lisp::quote lisp::symbol-plist) #1#) (lisp::remprop (lisp::quote lisp::symbol-plist) #2#) (system::putprop (lisp::quote lisp::symbol-plist) lisp::nil #3#) (system::putprop (lisp::quote lisp::gethash) (lisp::quote ((system::k system::h lisp::&optional system::d) (system::v) (lisp::list (lisp::quote system::hash-set) system::k system::h system::v))) #4#) (lisp::remprop (lisp::quote lisp::gethash) #5#) (lisp::remprop (lisp::quote lisp::gethash) #6#) (system::putprop (lisp::quote lisp::gethash) lisp::nil #7#) (system::putprop (lisp::quote lisp::row-major-aref) (lisp::quote system::aset1) #0#) (lisp::remprop (lisp::quote lisp::row-major-aref) #1#) (lisp::remprop (lisp::quote lisp::row-major-aref) #2#) (system::putprop (lisp::quote lisp::row-major-aref) lisp::nil #3#) (system::putprop (lisp::quote lisp::documentation) (lisp::quote ((system::s system::d) (system::v) (lisp::list (lisp::quote lisp::case) system::d (lisp::list (lisp::quote lisp::variable) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::variable-documentation)))) (lisp::list (lisp::quote lisp::function) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::function-documentation)))) (lisp::list (lisp::quote lisp::structure) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::structure-documentation)))) (lisp::list (lisp::quote lisp::type) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::type-documentation)))) (lisp::list (lisp::quote lisp::setf) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::setf-documentation)))) (lisp::list lisp::t (lisp::list (lisp::quote lisp::error) "~S is an illegal documentation type." system::d))))) #4#) (lisp::remprop (lisp::quote lisp::documentation) #5#) (lisp::remprop (lisp::quote lisp::documentation) #6#) (system::putprop (lisp::quote lisp::documentation) lisp::nil #7#) (system::mf (lisp::quote #12=#:g1384) 5) (system::putprop (lisp::quote lisp::getf) (lisp::symbol-function (lisp::quote #12#)) #8#) (lisp::remprop (lisp::quote lisp::getf) #9#) (lisp::remprop (lisp::quote lisp::getf) #10#) (system::putprop (lisp::quote lisp::getf) lisp::nil #11#) (system::putprop (lisp::quote lisp::subseq) (lisp::quote ((system::sequence1 system::start1 lisp::&optional system::end1) (system::sequence2) (lisp::list (lisp::quote lisp::replace) system::sequence1 system::sequence2 :start1 system::start1 :end1 system::end1))) #4#) (lisp::remprop (lisp::quote lisp::subseq) #5#) (lisp::remprop (lisp::quote lisp::subseq) #6#) (system::putprop (lisp::quote lisp::subseq) lisp::nil #7#) (system::mf (lisp::quote #13=#:g1386) 6) (system::putprop (lisp::quote lisp::the) (lisp::symbol-function (lisp::quote #13#)) #8#) (lisp::remprop (lisp::quote lisp::the) #9#) (lisp::remprop (lisp::quote lisp::the) #10#) (system::putprop (lisp::quote lisp::the) lisp::nil #11#) (system::mf (lisp::quote #14=#:g1388) 7) (system::putprop (lisp::quote lisp::apply) (lisp::symbol-function (lisp::quote #14#)) #8#) (lisp::remprop (lisp::quote lisp::apply) #9#) (lisp::remprop (lisp::quote lisp::apply) #10#) (system::putprop (lisp::quote lisp::apply) lisp::nil #11#) (system::mf (lisp::quote #15=#:g1389) 8) (system::putprop (lisp::quote lisp::char-bit) (lisp::symbol-function (lisp::quote #15#)) #8#) (lisp::remprop (lisp::quote lisp::char-bit) #9#) (lisp::remprop (lisp::quote lisp::char-bit) #10#) (system::putprop (lisp::quote lisp::char-bit) lisp::nil #11#) (system::mf (lisp::quote #16=#:g1391) 9) (system::putprop (lisp::quote lisp::ldb) (lisp::symbol-function (lisp::quote #16#)) #8#) (lisp::remprop (lisp::quote lisp::ldb) #9#) (lisp::remprop (lisp::quote lisp::ldb) #10#) (system::putprop (lisp::quote lisp::ldb) lisp::nil #11#) (system::mf (lisp::quote #17=#:g1393) 10) (system::putprop (lisp::quote lisp::mask-field) (lisp::symbol-function (lisp::quote #17#)) #8#) (lisp::remprop (lisp::quote lisp::mask-field) #9#) (lisp::remprop (lisp::quote lisp::mask-field) #10#) (system::putprop (lisp::quote lisp::mask-field) lisp::nil #11#) (system::mfsfun (lisp::quote system::setf-expand-1) 11 3) (system::mfsfun (lisp::quote system::setf-structure-access) 12 4) (system::mfsfun (lisp::quote system::setf-expand) 13 2) (system::mfsfun (lisp::quote system::setf-helper) 14 2) (system::fset (lisp::quote lisp::setf) (lisp::cons (lisp::quote lisp::macro) (lisp::symbol-function (lisp::quote system::setf-helper)))) (system::mm (lisp::quote lisp::psetf) 15) (system::mm (lisp::quote lisp::shiftf) 16) (system::mm (lisp::quote lisp::rotatef) 17) (system::mm (lisp::quote lisp::define-modify-macro) 18) (system::mm (lisp::quote lisp::remf) 19) (system::mm (lisp::quote lisp::incf) 20) (system::mm (lisp::quote lisp::decf) 21) (system::mm (lisp::quote lisp::push) 22) (system::mm (lisp::quote lisp::pushnew) 23) (system::mm (lisp::quote lisp::pop) 24))))  #(lisp::eval-when (lisp::compile lisp::eval lisp::load) system::putprop lisp::quote #0=(lisp::quote system::setf-update-fn) lisp::remprop #1=(lisp::quote system::setf-lambda) #2=(lisp::quote system::setf-method) "A doc-string expected." "Extra arguments." #3=(lisp::quote system::setf-documentation) "(store-variable) expected." (lisp::compile lisp::eval lisp::load) #4=(lisp::quote system::setf-lambda) #5=(lisp::quote system::setf-update-fn) #6=(lisp::quote system::setf-method) #7=(lisp::quote system::setf-documentation) lisp::declare lisp::ignore (lisp::compile lisp::eval lisp::load) lisp::function lisp::lambda #8=(lisp::quote system::setf-method) #9=(lisp::quote system::setf-lambda) #10=(lisp::quote system::setf-update-fn) #11=(lisp::quote system::setf-documentation) "Multiple store-variables are not allowed." lisp::setq "Cannot get the setf-method of ~S." "Cannot get setf-method for ~a" system::setf-method system::setf-update-fn system::structure-access system::setf-lambda "Cannot expand the SETF form ~S." system::sputprop lisp::let system::put-f lisp::getf lisp::the "Can't get the setf-method of ~S." lisp::apply lisp::append lisp::list "Can't get the setf-method of ~S." lisp::set-char-bit lisp::char-bit lisp::dpb lisp::ldb lisp::deposit-field lisp::mask-field lisp::values lisp::multiple-value-list lisp::setf lisp::nth lisp::let* system::rplaca-nthcdr system::elt-set system::structure-set "~S is an illegal SETF form." "~S is an illegal SETF form." lisp::progn "~S is an illegal PSETF form." (lisp::nil) "~S is an illegal PSETF form." (lisp::nil) system::access-form lisp::&optional lisp::&rest lisp::list* lisp::defmacro lisp::&environment system::env system::reference lisp::when (lisp::symbolp system::reference) lisp::return-from ((system::access-form system::reference)) (lisp::quote lisp::setq) lisp::multiple-value-bind (system::vars system::vals system::stores system::store-form system::access-form) (lisp::get-setf-method system::reference system::env) (lisp::quote lisp::let*) lisp::mapcar (lisp::function lisp::list) (lisp::append system::vars system::stores) system::vals system::store-form system::flag system::rem-f lisp::+ lisp::- lisp::cons lisp::adjoin lisp::car lisp::cdr lisp::prog1 system::find-documentation system::get-&environment lisp::get-setf-method-multiple-value system::setf-structure-access lisp::get-setf-method lisp::vector system::setf-expand-1 system::setf-expand (system::%init . #((system::mm (lisp::quote lisp::defsetf) 0) (system::mm (lisp::quote lisp::define-setf-method) 1) (system::mf (lisp::quote lisp::get-setf-method) 2) (system::mf (lisp::quote lisp::get-setf-method-multiple-value) 3) (system::putprop (lisp::quote lisp::car) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::car) #5#) (lisp::remprop (lisp::quote lisp::car) #6#) (system::putprop (lisp::quote lisp::car) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdr) #5#) (lisp::remprop (lisp::quote lisp::cdr) #6#) (system::putprop (lisp::quote lisp::cdr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::car) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caar) #5#) (lisp::remprop (lisp::quote lisp::caar) #6#) (system::putprop (lisp::quote lisp::caar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::car) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdar) #5#) (lisp::remprop (lisp::quote lisp::cdar) #6#) (system::putprop (lisp::quote lisp::cdar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadr) #5#) (lisp::remprop (lisp::quote lisp::cadr) #6#) (system::putprop (lisp::quote lisp::cadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddr) #5#) (lisp::remprop (lisp::quote lisp::cddr) #6#) (system::putprop (lisp::quote lisp::cddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaar) #5#) (lisp::remprop (lisp::quote lisp::caaar) #6#) (system::putprop (lisp::quote lisp::caaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaar) #5#) (lisp::remprop (lisp::quote lisp::cdaar) #6#) (system::putprop (lisp::quote lisp::cdaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadar) #5#) (lisp::remprop (lisp::quote lisp::cadar) #6#) (system::putprop (lisp::quote lisp::cadar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddar) #5#) (lisp::remprop (lisp::quote lisp::cddar) #6#) (system::putprop (lisp::quote lisp::cddar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caadr) #5#) (lisp::remprop (lisp::quote lisp::caadr) #6#) (system::putprop (lisp::quote lisp::caadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdadr) #5#) (lisp::remprop (lisp::quote lisp::cdadr) #6#) (system::putprop (lisp::quote lisp::cdadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caddr) #5#) (lisp::remprop (lisp::quote lisp::caddr) #6#) (system::putprop (lisp::quote lisp::caddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdddr) #5#) (lisp::remprop (lisp::quote lisp::cdddr) #6#) (system::putprop (lisp::quote lisp::cdddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaaar) #5#) (lisp::remprop (lisp::quote lisp::caaaar) #6#) (system::putprop (lisp::quote lisp::caaaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaaar) #5#) (lisp::remprop (lisp::quote lisp::cdaaar) #6#) (system::putprop (lisp::quote lisp::cdaaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadaar) #5#) (lisp::remprop (lisp::quote lisp::cadaar) #6#) (system::putprop (lisp::quote lisp::cadaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddaar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdaar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddaar) #5#) (lisp::remprop (lisp::quote lisp::cddaar) #6#) (system::putprop (lisp::quote lisp::cddaar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caadar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cadar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caadar) #5#) (lisp::remprop (lisp::quote lisp::caadar) #6#) (system::putprop (lisp::quote lisp::caadar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdadar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cadar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdadar) #5#) (lisp::remprop (lisp::quote lisp::cdadar) #6#) (system::putprop (lisp::quote lisp::cdadar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caddar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caddar) #5#) (lisp::remprop (lisp::quote lisp::caddar) #6#) (system::putprop (lisp::quote lisp::caddar) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdddar) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cddar) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdddar) #5#) (lisp::remprop (lisp::quote lisp::cdddar) #6#) (system::putprop (lisp::quote lisp::cdddar) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaadr) #5#) (lisp::remprop (lisp::quote lisp::caaadr) #6#) (system::putprop (lisp::quote lisp::caaadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaadr) #5#) (lisp::remprop (lisp::quote lisp::cdaadr) #6#) (system::putprop (lisp::quote lisp::cdaadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadadr) #5#) (lisp::remprop (lisp::quote lisp::cadadr) #6#) (system::putprop (lisp::quote lisp::cadadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddadr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdadr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddadr) #5#) (lisp::remprop (lisp::quote lisp::cddadr) #6#) (system::putprop (lisp::quote lisp::cddadr) lisp::nil #7#) (system::putprop (lisp::quote lisp::caaddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::caddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::caaddr) #5#) (lisp::remprop (lisp::quote lisp::caaddr) #6#) (system::putprop (lisp::quote lisp::caaddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cdaddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::caddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cdaddr) #5#) (lisp::remprop (lisp::quote lisp::cdaddr) #6#) (system::putprop (lisp::quote lisp::cdaddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cadddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cadddr) #5#) (lisp::remprop (lisp::quote lisp::cadddr) #6#) (system::putprop (lisp::quote lisp::cadddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::cddddr) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) (lisp::list (lisp::quote lisp::cdddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::cddddr) #5#) (lisp::remprop (lisp::quote lisp::cddddr) #6#) (system::putprop (lisp::quote lisp::cddddr) lisp::nil #7#) (system::putprop (lisp::quote lisp::first) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::first) #5#) (lisp::remprop (lisp::quote lisp::first) #6#) (system::putprop (lisp::quote lisp::first) lisp::nil #7#) (system::putprop (lisp::quote lisp::second) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::second) #5#) (lisp::remprop (lisp::quote lisp::second) #6#) (system::putprop (lisp::quote lisp::second) lisp::nil #7#) (system::putprop (lisp::quote lisp::third) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::third) #5#) (lisp::remprop (lisp::quote lisp::third) #6#) (system::putprop (lisp::quote lisp::third) lisp::nil #7#) (system::putprop (lisp::quote lisp::fourth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cdddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::fourth) #5#) (lisp::remprop (lisp::quote lisp::fourth) #6#) (system::putprop (lisp::quote lisp::fourth) lisp::nil #7#) (system::putprop (lisp::quote lisp::fifth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::cddddr) system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::fifth) #5#) (lisp::remprop (lisp::quote lisp::fifth) #6#) (system::putprop (lisp::quote lisp::fifth) lisp::nil #7#) (system::putprop (lisp::quote lisp::sixth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 5 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::sixth) #5#) (lisp::remprop (lisp::quote lisp::sixth) #6#) (system::putprop (lisp::quote lisp::sixth) lisp::nil #7#) (system::putprop (lisp::quote lisp::seventh) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 6 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::seventh) #5#) (lisp::remprop (lisp::quote lisp::seventh) #6#) (system::putprop (lisp::quote lisp::seventh) lisp::nil #7#) (system::putprop (lisp::quote lisp::eighth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 7 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::eighth) #5#) (lisp::remprop (lisp::quote lisp::eighth) #6#) (system::putprop (lisp::quote lisp::eighth) lisp::nil #7#) (system::putprop (lisp::quote lisp::ninth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 8 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::ninth) #5#) (lisp::remprop (lisp::quote lisp::ninth) #6#) (system::putprop (lisp::quote lisp::ninth) lisp::nil #7#) (system::putprop (lisp::quote lisp::tenth) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) 9 system::x) system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::tenth) #5#) (lisp::remprop (lisp::quote lisp::tenth) #6#) (system::putprop (lisp::quote lisp::tenth) lisp::nil #7#) (system::putprop (lisp::quote lisp::rest) (lisp::quote ((system::x) (system::y) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplacd) system::x system::y) system::y))) #4#) (lisp::remprop (lisp::quote lisp::rest) #5#) (lisp::remprop (lisp::quote lisp::rest) #6#) (system::putprop (lisp::quote lisp::rest) lisp::nil #7#) (system::putprop (lisp::quote lisp::svref) (lisp::quote system::svset) #0#) (lisp::remprop (lisp::quote lisp::svref) #1#) (lisp::remprop (lisp::quote lisp::svref) #2#) (system::putprop (lisp::quote lisp::svref) lisp::nil #3#) (system::putprop (lisp::quote lisp::elt) (lisp::quote system::elt-set) #0#) (lisp::remprop (lisp::quote lisp::elt) #1#) (lisp::remprop (lisp::quote lisp::elt) #2#) (system::putprop (lisp::quote lisp::elt) lisp::nil #3#) (system::putprop (lisp::quote lisp::symbol-value) (lisp::quote lisp::set) #0#) (lisp::remprop (lisp::quote lisp::symbol-value) #1#) (lisp::remprop (lisp::quote lisp::symbol-value) #2#) (system::putprop (lisp::quote lisp::symbol-value) lisp::nil #3#) (system::putprop (lisp::quote lisp::symbol-function) (lisp::quote system::fset) #0#) (lisp::remprop (lisp::quote lisp::symbol-function) #1#) (lisp::remprop (lisp::quote lisp::symbol-function) #2#) (system::putprop (lisp::quote lisp::symbol-function) lisp::nil #3#) (system::putprop (lisp::quote lisp::macro-function) (lisp::quote ((system::s) (system::v) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote system::fset) system::s (lisp::list (lisp::quote lisp::cons) (lisp::quote (lisp::quote lisp::macro)) system::v)) system::v))) #4#) (lisp::remprop (lisp::quote lisp::macro-function) #5#) (lisp::remprop (lisp::quote lisp::macro-function) #6#) (system::putprop (lisp::quote lisp::macro-function) lisp::nil #7#) (system::putprop (lisp::quote lisp::aref) (lisp::quote system::aset) #0#) (lisp::remprop (lisp::quote lisp::aref) #1#) (lisp::remprop (lisp::quote lisp::aref) #2#) (system::putprop (lisp::quote lisp::aref) lisp::nil #3#) (system::putprop (lisp::quote lisp::get) (lisp::quote system::put-aux) #0#) (lisp::remprop (lisp::quote lisp::get) #1#) (lisp::remprop (lisp::quote lisp::get) #2#) (system::putprop (lisp::quote lisp::get) lisp::nil #3#) (system::mm (lisp::quote system::put-aux) 4) (system::putprop (lisp::quote lisp::nth) (lisp::quote ((system::n system::l) (system::v) (lisp::list (lisp::quote lisp::progn) (lisp::list (lisp::quote lisp::rplaca) (lisp::list (lisp::quote lisp::nthcdr) system::n system::l) system::v) system::v))) #4#) (lisp::remprop (lisp::quote lisp::nth) #5#) (lisp::remprop (lisp::quote lisp::nth) #6#) (system::putprop (lisp::quote lisp::nth) lisp::nil #7#) (system::putprop (lisp::quote lisp::char) (lisp::quote system::char-set) #0#) (lisp::remprop (lisp::quote lisp::char) #1#) (lisp::remprop (lisp::quote lisp::char) #2#) (system::putprop (lisp::quote lisp::char) lisp::nil #3#) (system::putprop (lisp::quote lisp::schar) (lisp::quote system::schar-set) #0#) (lisp::remprop (lisp::quote lisp::schar) #1#) (lisp::remprop (lisp::quote lisp::schar) #2#) (system::putprop (lisp::quote lisp::schar) lisp::nil #3#) (system::putprop (lisp::quote lisp::bit) (lisp::quote system::aset) #0#) (lisp::remprop (lisp::quote lisp::bit) #1#) (lisp::remprop (lisp::quote lisp::bit) #2#) (system::putprop (lisp::quote lisp::bit) lisp::nil #3#) (system::putprop (lisp::quote lisp::sbit) (lisp::quote system::aset) #0#) (lisp::remprop (lisp::quote lisp::sbit) #1#) (lisp::remprop (lisp::quote lisp::sbit) #2#) (system::putprop (lisp::quote lisp::sbit) lisp::nil #3#) (system::putprop (lisp::quote lisp::fill-pointer) (lisp::quote system::fill-pointer-set) #0#) (lisp::remprop (lisp::quote lisp::fill-pointer) #1#) (lisp::remprop (lisp::quote lisp::fill-pointer) #2#) (system::putprop (lisp::quote lisp::fill-pointer) lisp::nil #3#) (system::putprop (lisp::quote lisp::symbol-plist) (lisp::quote system::set-symbol-plist) #0#) (lisp::remprop (lisp::quote lisp::symbol-plist) #1#) (lisp::remprop (lisp::quote lisp::symbol-plist) #2#) (system::putprop (lisp::quote lisp::symbol-plist) lisp::nil #3#) (system::putprop (lisp::quote lisp::gethash) (lisp::quote ((system::k system::h lisp::&optional system::d) (system::v) (lisp::list (lisp::quote system::hash-set) system::k system::h system::v))) #4#) (lisp::remprop (lisp::quote lisp::gethash) #5#) (lisp::remprop (lisp::quote lisp::gethash) #6#) (system::putprop (lisp::quote lisp::gethash) lisp::nil #7#) (system::putprop (lisp::quote lisp::row-major-aref) (lisp::quote system::aset1) #0#) (lisp::remprop (lisp::quote lisp::row-major-aref) #1#) (lisp::remprop (lisp::quote lisp::row-major-aref) #2#) (system::putprop (lisp::quote lisp::row-major-aref) lisp::nil #3#) (system::putprop (lisp::quote lisp::documentation) (lisp::quote ((system::s system::d) (system::v) (lisp::list (lisp::quote lisp::case) system::d (lisp::list (lisp::quote lisp::variable) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::variable-documentation)))) (lisp::list (lisp::quote lisp::function) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::function-documentation)))) (lisp::list (lisp::quote lisp::structure) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::structure-documentation)))) (lisp::list (lisp::quote lisp::type) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::type-documentation)))) (lisp::list (lisp::quote lisp::setf) (lisp::list (lisp::quote system::putprop) system::s system::v (lisp::quote (lisp::quote system::setf-documentation)))) (lisp::list lisp::t (lisp::list (lisp::quote lisp::error) "~S is an illegal documentation type." system::d))))) #4#) (lisp::remprop (lisp::quote lisp::documentation) #5#) (lisp::remprop (lisp::quote lisp::documentation) #6#) (system::putprop (lisp::quote lisp::documentation) lisp::nil #7#) (system::mf (lisp::quote #12=#:g1382) 5) (system::putprop (lisp::quote lisp::getf) (lisp::symbol-function (lisp::quote #12#)) #8#) (lisp::remprop (lisp::quote lisp::getf) #9#) (lisp::remprop (lisp::quote lisp::getf) #10#) (system::putprop (lisp::quote lisp::getf) lisp::nil #11#) (system::putprop (lisp::quote lisp::subseq) (lisp::quote ((system::sequence1 system::start1 lisp::&optional system::end1) (system::sequence2) (lisp::list (lisp::quote lisp::replace) system::sequence1 system::sequence2 :start1 system::start1 :end1 system::end1))) #4#) (lisp::remprop (lisp::quote lisp::subseq) #5#) (lisp::remprop (lisp::quote lisp::subseq) #6#) (system::putprop (lisp::quote lisp::subseq) lisp::nil #7#) (system::mf (lisp::quote #13=#:g1384) 6) (system::putprop (lisp::quote lisp::the) (lisp::symbol-function (lisp::quote #13#)) #8#) (lisp::remprop (lisp::quote lisp::the) #9#) (lisp::remprop (lisp::quote lisp::the) #10#) (system::putprop (lisp::quote lisp::the) lisp::nil #11#) (system::mf (lisp::quote #14=#:g1386) 7) (system::putprop (lisp::quote lisp::apply) (lisp::symbol-function (lisp::quote #14#)) #8#) (lisp::remprop (lisp::quote lisp::apply) #9#) (lisp::remprop (lisp::quote lisp::apply) #10#) (system::putprop (lisp::quote lisp::apply) lisp::nil #11#) (system::mf (lisp::quote #15=#:g1387) 8) (system::putprop (lisp::quote lisp::char-bit) (lisp::symbol-function (lisp::quote #15#)) #8#) (lisp::remprop (lisp::quote lisp::char-bit) #9#) (lisp::remprop (lisp::quote lisp::char-bit) #10#) (system::putprop (lisp::quote lisp::char-bit) lisp::nil #11#) (system::mf (lisp::quote #16=#:g1389) 9) (system::putprop (lisp::quote lisp::ldb) (lisp::symbol-function (lisp::quote #16#)) #8#) (lisp::remprop (lisp::quote lisp::ldb) #9#) (lisp::remprop (lisp::quote lisp::ldb) #10#) (system::putprop (lisp::quote lisp::ldb) lisp::nil #11#) (system::mf (lisp::quote #17=#:g1391) 10) (system::putprop (lisp::quote lisp::mask-field) (lisp::symbol-function (lisp::quote #17#)) #8#) (lisp::remprop (lisp::quote lisp::mask-field) #9#) (lisp::remprop (lisp::quote lisp::mask-field) #10#) (system::putprop (lisp::quote lisp::mask-field) lisp::nil #11#) (system::mfsfun (lisp::quote system::setf-expand-1) 11 3) (system::mfsfun (lisp::quote system::setf-structure-access) 12 4) (system::mfsfun (lisp::quote system::setf-expand) 13 2) (system::mfsfun (lisp::quote system::setf-helper) 14 2) (system::fset (lisp::quote lisp::setf) (lisp::cons (lisp::quote lisp::macro) (lisp::symbol-function (lisp::quote system::setf-helper)))) (system::mm (lisp::quote lisp::psetf) 15) (system::mm (lisp::quote lisp::shiftf) 16) (system::mm (lisp::quote lisp::rotatef) 17) (system::mm (lisp::quote lisp::define-modify-macro) 18) (system::mm (lisp::quote lisp::remf) 19) (system::mm (lisp::quote lisp::incf) 20) (system::mm (lisp::quote lisp::decf) 21) (system::mm (lisp::quote lisp::push) 22) (system::mm (lisp::quote lisp::pushnew) 23) (system::mm (lisp::quote lisp::pop) 24))))
7  )  )

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

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