(IN-PACKAGE (QUOTE "LISP-INTERNALS"))(PROGN (NC::PUT-GLOBAL-DECLARATION (QUOTE FOO) (QUOTE DEFSTRUCT-DESCRIPTOR) (QUOTE #(FOO MAKE-FOO NIL NIL (FOO (A (QUOTE UNDEFINED)) (B (QUOTE UNDEFINED)) (C (QUOTE UNDEFINED)))))))(PROGN (SETQ SETF::*GRODY-SETF-MACRO-TABLE* (GLOBAL:CONS (QUOTE (FOO-C LAMBDA (FOO) (LET* ((SETF::SINGLE-TEMPVARS (GLOBAL:MAPCAR (FUNCTION (LAMBDA (GLOBAL:IGNORE) (GLOBAL:GENTEMP))) (QUOTE (FOO)))) (SETF::STOREVAR (GLOBAL:GENSYM)) (SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) (VALUES SETF::TEMPVARS (GLOBAL:LIST FOO) (GLOBAL:LIST SETF::STOREVAR) (LET ((#:STRUCT6624 SETF::STOREVAR) (FOO (GLOBAL:NTH 0 SETF::TEMPVARS))) (SI::XR-BQ-LIST (QUOTE SETF) (SI::XR-BQ-LIST (QUOTE STRUCTURE-OBJECT-REF) FOO 3) #:STRUCT6624)) (SI::XR-BQ-LIST* (QUOTE FOO-C) SETF::TEMPVARS))))) SETF::*GRODY-SETF-MACRO-TABLE*)) (QUOTE FOO-C))(NC::DEF-DECLARATION FOO-C SUBST (QUOTE (NC::NAMED-LAMBDA FOO-C (FOO) (STRUCTURE-OBJECT-REF FOO 3))))(PROGN (SETQ SETF::*GRODY-SETF-MACRO-TABLE* (GLOBAL:CONS (QUOTE (FOO-B LAMBDA (FOO) (LET* ((SETF::SINGLE-TEMPVARS (GLOBAL:MAPCAR (FUNCTION (LAMBDA (GLOBAL:IGNORE) (GLOBAL:GENTEMP))) (QUOTE (FOO)))) (SETF::STOREVAR (GLOBAL:GENSYM)) (SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) (VALUES SETF::TEMPVARS (GLOBAL:LIST FOO) (GLOBAL:LIST SETF::STOREVAR) (LET ((#:STRUCT6623 SETF::STOREVAR) (FOO (GLOBAL:NTH 0 SETF::TEMPVARS))) (SI::XR-BQ-LIST (QUOTE SETF) (SI::XR-BQ-LIST (QUOTE STRUCTURE-OBJECT-REF) FOO 2) #:STRUCT6623)) (SI::XR-BQ-LIST* (QUOTE FOO-B) SETF::TEMPVARS))))) SETF::*GRODY-SETF-MACRO-TABLE*)) (QUOTE FOO-B))(NC::DEF-DECLARATION FOO-B SUBST (QUOTE (NC::NAMED-LAMBDA FOO-B (FOO) (STRUCTURE-OBJECT-REF FOO 2))))(PROGN (SETQ SETF::*GRODY-SETF-MACRO-TABLE* (GLOBAL:CONS (QUOTE (FOO-A LAMBDA (FOO) (LET* ((SETF::SINGLE-TEMPVARS (GLOBAL:MAPCAR (FUNCTION (LAMBDA (GLOBAL:IGNORE) (GLOBAL:GENTEMP))) (QUOTE (FOO)))) (SETF::STOREVAR (GLOBAL:GENSYM)) (SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) (VALUES SETF::TEMPVARS (GLOBAL:LIST FOO) (GLOBAL:LIST SETF::STOREVAR) (LET ((#:STRUCT6622 SETF::STOREVAR) (FOO (GLOBAL:NTH 0 SETF::TEMPVARS))) (SI::XR-BQ-LIST (QUOTE SETF) (SI::XR-BQ-LIST (QUOTE STRUCTURE-OBJECT-REF) FOO 1) #:STRUCT6622)) (SI::XR-BQ-LIST* (QUOTE FOO-A) SETF::TEMPVARS))))) SETF::*GRODY-SETF-MACRO-TABLE*)) (QUOTE FOO-A))(NC::DEF-DECLARATION FOO-A SUBST (QUOTE (NC::NAMED-LAMBDA FOO-A (FOO) (STRUCTURE-OBJECT-REF FOO 1))))(PROGN (DEFUN #:FOO-TYPE-EXPANDER NIL (QUOTE (SATISFIES FOO-P))) (NC::PUT-GLOBAL-DECLARATION (QUOTE FOO) (QUOTE TYPE-EXPANDER) (FUNCTION #:FOO-TYPE-EXPANDER)))(QUOTE FOO)(QUOTE FOO)