#0Y UTF-8 (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::SPECIAL COMMON-LISP-USER::A-MUSIC))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::SPECIAL COMMON-LISP-USER::THE-MUSIC-PLAYER))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::SPECIAL COMMON-LISP-USER::THE-MUSIC-LIBRARY))) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER:: :DIRECT-SUPERCLASSES (COMMON-LISP::LIST) :DIRECT-SLOTS (COMMON-LISP::LIST (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::TITLE :ACCESSORS '(COMMON-LISP-USER::TITLE) :READERS '(COMMON-LISP-USER::TITLE) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::TITLE)) :INITARGS '(:TITLE) :INITER (COMMON-LISP::CONS #1='COMMON-LISP::NIL "") :TYPE ''COMMON-LISP::STRING) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::ARTIST :ACCESSORS '(COMMON-LISP-USER::ARTIST) :READERS '(COMMON-LISP-USER::ARTIST) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::ARTIST)) :INITARGS '(:ARTIST) :INITER (COMMON-LISP::CONS #1# "") :TYPE ''COMMON-LISP::STRING) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::ALBUM :ACCESSORS '(COMMON-LISP-USER::ALBUM) :READERS '(COMMON-LISP-USER::ALBUM) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::ALBUM)) :INITARGS '(:ALBUM) :INITER (COMMON-LISP::CONS #1# "") :TYPE ''COMMON-LISP::STRING) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::GENRE :ACCESSORS '(COMMON-LISP-USER::GENRE) :READERS '(COMMON-LISP-USER::GENRE) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::GENRE)) :INITARGS '(:GENRE) :INITER (COMMON-LISP::CONS #1# "") :TYPE ''COMMON-LISP::STRING) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::SIZE :ACCESSORS '(COMMON-LISP-USER::SIZE) :READERS '(COMMON-LISP-USER::SIZE) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::SIZE)) :INITARGS '(:SIZE) :INITER (COMMON-LISP::CONS #1# 0.) :TYPE ''COMMON-LISP::INTEGER) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::SECONDS :ACCESSORS '(COMMON-LISP-USER::SECONDS) :READERS '(COMMON-LISP-USER::SECONDS) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::SECONDS)) :INITARGS '(:SECONDS) :INITER (COMMON-LISP::CONS #1# 0.) :TYPE ''COMMON-LISP::INTEGER) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::TRACK-NUMBER :ACCESSORS '(COMMON-LISP-USER::TRACK-NUMBER) :READERS '(COMMON-LISP-USER::TRACK-NUMBER) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::TRACK-NUMBER)) :INITARGS '(:TRACK-NUMBER) :INITER (COMMON-LISP::CONS #1# 0.) :TYPE ''COMMON-LISP::INTEGER) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::TRACK-COUNT :ACCESSORS '(COMMON-LISP-USER::TRACK-COUNT) :READERS '(COMMON-LISP-USER::TRACK-COUNT) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::TRACK-COUNT)) :INITARGS '(:TRACK-COUNT) :INITER (COMMON-LISP::CONS #1# 0.) :TYPE ''COMMON-LISP::INTEGER) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::YEAR :ACCESSORS '(COMMON-LISP-USER::YEAR) :READERS '(COMMON-LISP-USER::YEAR) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::YEAR)) :INITARGS '(:YEAR) :INITER (COMMON-LISP::CONS #1# 0.) :TYPE ''COMMON-LISP::INTEGER) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::DATE :ACCESSORS '(COMMON-LISP-USER::DATE) :READERS '(COMMON-LISP-USER::DATE) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::DATE)) :INITARGS '(:DATE) :TYPE ''COMMON-LISP-USER::) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::SELECTED :ACCESSORS '(COMMON-LISP-USER::SELECTED) :READERS '(COMMON-LISP-USER::SELECTED) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::SELECTED)) :INITARGS '(:SELECTED) :INITER (COMMON-LISP::CONS #1# COMMON-LISP::NIL) :TYPE ''COMMON-LISP::BOOLEAN)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::TITLE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::TITLE) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::ARTIST #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::ARTIST) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::ALBUM #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::ALBUM) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::GENRE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::GENRE) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SIZE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::SIZE) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SECONDS #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::SECONDS) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::TRACK-NUMBER #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::TRACK-NUMBER) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::TRACK-COUNT #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::TRACK-COUNT) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::YEAR #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::YEAR) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::DATE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::DATE) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SELECTED #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::SELECTED) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'CLOS::PRINT-OBJECT #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::TRACK #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::DURATION #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PARSE-MUSIC #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (COMMON-LISP::LET COMMON-LISP::NIL (COMMON-LISP::LET ((#1=#:G7675 (COMMON-LISP::CONS 'COMMON-LISP-USER::MUSIC-LIBRARY (COMMON-LISP::SVREF (COMMON-LISP::GET 'COMMON-LISP::STRUCTURE-OBJECT 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.)))) (COMMON-LISP::DEFUN COMMON-LISP-USER::MAKE-MUSIC-LIBRARY (COMMON-LISP::&KEY (COMMON-LISP-USER::LOOKING COMMON-LISP::NIL) (COMMON-LISP-USER::CONTENTS COMMON-LISP::NIL) (COMMON-LISP-USER::SEARCHING COMMON-LISP::NIL)) (COMMON-LISP::LET ((SYSTEM::OBJECT (SYSTEM::%MAKE-STRUCTURE #1# 4.))) (COMMON-LISP::SETF (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 1.) (COMMON-LISP::THE COMMON-LISP::T COMMON-LISP-USER::LOOKING)) (COMMON-LISP::SETF (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 2.) (COMMON-LISP::THE COMMON-LISP::T COMMON-LISP-USER::CONTENTS)) (COMMON-LISP::SETF (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 3.) (COMMON-LISP::THE COMMON-LISP::T COMMON-LISP-USER::SEARCHING)) SYSTEM::OBJECT)) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY 'SYSTEM::DEFSTRUCT-DESCRIPTION (COMMON-LISP::VECTOR #1# 'COMMON-LISP::T 'COMMON-LISP-USER::MAKE-MUSIC-LIBRARY `(#(COMMON-LISP-USER::LOOKING (:LOOKING) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL) #(COMMON-LISP-USER::CONTENTS (:CONTENTS) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL) #(COMMON-LISP-USER::SEARCHING (:SEARCHING) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL))))) (CLOS::DEFINE-STRUCTURE-CLASS 'COMMON-LISP-USER::MUSIC-LIBRARY) (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-P)) (COMMON-LISP::DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-P (SYSTEM::OBJECT) (SYSTEM::%STRUCTURE-TYPE-P 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT)) (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::COPY-MUSIC-LIBRARY)) (COMMON-LISP::DEFUN COMMON-LISP-USER::COPY-MUSIC-LIBRARY (COMMON-LISP::STRUCTURE) (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)) (COMMON-LISP::PROCLAIM '(COMMON-LISP::FUNCTION COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING (COMMON-LISP-USER::MUSIC-LIBRARY) COMMON-LISP::T)) (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING)) (COMMON-LISP::DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING #2=(SYSTEM::OBJECT) (COMMON-LISP::THE COMMON-LISP::T (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 1.))) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING #3='SYSTEM::DEFSTRUCT-READER 'COMMON-LISP-USER::MUSIC-LIBRARY) (COMMON-LISP::PROCLAIM '(COMMON-LISP::FUNCTION COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS (COMMON-LISP-USER::MUSIC-LIBRARY) COMMON-LISP::T)) (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS)) (COMMON-LISP::DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS #2# (COMMON-LISP::THE COMMON-LISP::T (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 2.))) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS #3# 'COMMON-LISP-USER::MUSIC-LIBRARY) (COMMON-LISP::PROCLAIM '(COMMON-LISP::FUNCTION COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING (COMMON-LISP-USER::MUSIC-LIBRARY) COMMON-LISP::T)) (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING)) (COMMON-LISP::DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING #2# (COMMON-LISP::THE COMMON-LISP::T (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 3.))) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING #3# 'COMMON-LISP-USER::MUSIC-LIBRARY) (COMMON-LISP::DEFSETF COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING #4=(SYSTEM::STRUCT) #5=(SYSTEM::VALUE) (COMMON-LISP::LIST #6='SYSTEM::%STRUCTURE-STORE ''COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::STRUCT 1. SYSTEM::VALUE)) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING #7='SYSTEM::DEFSTRUCT-WRITER 'COMMON-LISP-USER::MUSIC-LIBRARY) (COMMON-LISP::DEFSETF COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS #4# #5# (COMMON-LISP::LIST #6# ''COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::STRUCT 2. SYSTEM::VALUE)) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS #7# 'COMMON-LISP-USER::MUSIC-LIBRARY) (COMMON-LISP::DEFSETF COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING #4# #5# (COMMON-LISP::LIST #6# ''COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::STRUCT 3. SYSTEM::VALUE)) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING #7# 'COMMON-LISP-USER::MUSIC-LIBRARY) (COMMON-LISP::SETF (COMMON-LISP::DOCUMENTATION 'COMMON-LISP-USER::MUSIC-LIBRARY 'COMMON-LISP::STRUCTURE) COMMON-LISP::NIL) (CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD 'COMMON-LISP-USER::MUSIC-LIBRARY) 'COMMON-LISP-USER::MUSIC-LIBRARY)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MAKE-MUSIC-LIBRARY (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP::&KEY (COMMON-LISP-USER::LOOKING COMMON-LISP::NIL) (COMMON-LISP-USER::CONTENTS COMMON-LISP::NIL) (COMMON-LISP-USER::SEARCHING COMMON-LISP::NIL))))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-P))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MUSIC-LIBRARY-P (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(SYSTEM::OBJECT)) '(#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-P)) (COMMON-LISP::BLOCK COMMON-LISP-USER::MUSIC-LIBRARY-P (SYSTEM::%STRUCTURE-TYPE-P 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT))))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::COPY-MUSIC-LIBRARY))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::COPY-MUSIC-LIBRARY (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(COMMON-LISP::STRUCTURE)) '(#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::COPY-MUSIC-LIBRARY)) (COMMON-LISP::BLOCK COMMON-LISP-USER::COPY-MUSIC-LIBRARY (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE))))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::FUNCTION COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING (COMMON-LISP-USER::MUSIC-LIBRARY) COMMON-LISP::T))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(SYSTEM::OBJECT)) '(#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING)) (COMMON-LISP::BLOCK COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING (COMMON-LISP::THE COMMON-LISP::T (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 1.)))))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::FUNCTION COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS (COMMON-LISP-USER::MUSIC-LIBRARY) COMMON-LISP::T))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(SYSTEM::OBJECT)) '(#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS)) (COMMON-LISP::BLOCK COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS (COMMON-LISP::THE COMMON-LISP::T (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 2.)))))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::FUNCTION COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING (COMMON-LISP-USER::MUSIC-LIBRARY) COMMON-LISP::T))) (COMMON-LISP::PROGN (SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(SYSTEM::OBJECT)) '(#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING)) (COMMON-LISP::BLOCK COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING (COMMON-LISP::THE COMMON-LISP::T (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::OBJECT 3.)))))) (COMMON-LISP::PROGN (COMMON-LISP::LET COMMON-LISP::NIL (COMMON-LISP::REMPROP 'COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING 'SYSTEM::DEFSTRUCT-WRITER) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING 'SYSTEM::SETF-EXPANDER (COMMON-LISP::LIST* -1. 1. (COMMON-LISP::FUNCTION COMMON-LISP-USER::SETF-MUSIC-LIBRARY-LOOKING (COMMON-LISP::LAMBDA (SYSTEM::%ACCESS-ARGLIST SYSTEM::VALUE) (COMMON-LISP::LET* ((SYSTEM::STRUCT (COMMON-LISP::CADR SYSTEM::%ACCESS-ARGLIST))) (COMMON-LISP::BLOCK COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING (COMMON-LISP::LIST 'SYSTEM::%STRUCTURE-STORE ''COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::STRUCT 1. SYSTEM::VALUE))))))) (SYSTEM::%SET-DOCUMENTATION 'COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING 'COMMON-LISP::SETF COMMON-LISP::NIL) 'COMMON-LISP-USER::MUSIC-LIBRARY-LOOKING)) (COMMON-LISP::PROGN (COMMON-LISP::LET COMMON-LISP::NIL (COMMON-LISP::REMPROP 'COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS 'SYSTEM::DEFSTRUCT-WRITER) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS 'SYSTEM::SETF-EXPANDER (COMMON-LISP::LIST* -1. 1. (COMMON-LISP::FUNCTION COMMON-LISP-USER::SETF-MUSIC-LIBRARY-CONTENTS (COMMON-LISP::LAMBDA (SYSTEM::%ACCESS-ARGLIST SYSTEM::VALUE) (COMMON-LISP::LET* ((SYSTEM::STRUCT (COMMON-LISP::CADR SYSTEM::%ACCESS-ARGLIST))) (COMMON-LISP::BLOCK COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS (COMMON-LISP::LIST 'SYSTEM::%STRUCTURE-STORE ''COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::STRUCT 2. SYSTEM::VALUE))))))) (SYSTEM::%SET-DOCUMENTATION 'COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS 'COMMON-LISP::SETF COMMON-LISP::NIL) 'COMMON-LISP-USER::MUSIC-LIBRARY-CONTENTS)) (COMMON-LISP::PROGN (COMMON-LISP::LET COMMON-LISP::NIL (COMMON-LISP::REMPROP 'COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING 'SYSTEM::DEFSTRUCT-WRITER) (SYSTEM::%PUT 'COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING 'SYSTEM::SETF-EXPANDER (COMMON-LISP::LIST* -1. 1. (COMMON-LISP::FUNCTION COMMON-LISP-USER::SETF-MUSIC-LIBRARY-SEARCHING (COMMON-LISP::LAMBDA (SYSTEM::%ACCESS-ARGLIST SYSTEM::VALUE) (COMMON-LISP::LET* ((SYSTEM::STRUCT (COMMON-LISP::CADR SYSTEM::%ACCESS-ARGLIST))) (COMMON-LISP::BLOCK COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING (COMMON-LISP::LIST 'SYSTEM::%STRUCTURE-STORE ''COMMON-LISP-USER::MUSIC-LIBRARY SYSTEM::STRUCT 3. SYSTEM::VALUE))))))) (SYSTEM::%SET-DOCUMENTATION 'COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING 'COMMON-LISP::SETF COMMON-LISP::NIL) 'COMMON-LISP-USER::MUSIC-LIBRARY-SEARCHING)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'CLOS::PRINT-OBJECT #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-LOAD (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::NAME)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-SELECT (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::MUSIC)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-TOTAL-SONGS (SYSTEM::LAMBDA-LIST-TO-SIGNATURE 'COMMON-LISP::NIL))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SEARCH-LIBRARY-FOR (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::DURATION-IN-SECONDS)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-SEARCH-COMPLETE (SYSTEM::LAMBDA-LIST-TO-SIGNATURE 'COMMON-LISP::NIL))) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER:: :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::)) :DIRECT-SLOTS (COMMON-LISP::LIST))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LABEL-MAP #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MUSIC-LIBRARY-SET-SELECTED-TRACK! #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::FOR-EACH (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::PROC COMMON-LISP-USER::SOME-LIST)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-FOR-EACH (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::PROC)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-COUNT-SELECTED (SYSTEM::LAMBDA-LIST-TO-SIGNATURE 'COMMON-LISP::NIL))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-MUSIC-SELECTED (SYSTEM::LAMBDA-LIST-TO-SIGNATURE 'COMMON-LISP::NIL))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-MARK-SELECTED-IFF (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::FIELD-KEY COMMON-LISP-USER::VALUE)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LIBRARY-MARK-SELECTED-IF (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::FIELD-KEY COMMON-LISP-USER::VALUE)))) (COMMON-LISP::PROGN (SYSTEM::REMOVE-OLD-DEFINITIONS 'COMMON-LISP-USER::DEFINE-SEARCH) (SYSTEM::%PUTD 'COMMON-LISP-USER::DEFINE-SEARCH (SYSTEM::MAKE-MACRO (COMMON-LISP::FUNCTION COMMON-LISP-USER::DEFINE-SEARCH (COMMON-LISP::LAMBDA (SYSTEM:: COMMON-LISP::&OPTIONAL SYSTEM::) (COMMON-LISP::DECLARE (COMMON-LISP::CONS SYSTEM::)) (COMMON-LISP::DECLARE (COMMON-LISP::IGNORE SYSTEM::)) (COMMON-LISP::IF (COMMON-LISP::/= (COMMON-LISP::LENGTH SYSTEM::) 4.) (SYSTEM::MACRO-CALL-ERROR SYSTEM::) (COMMON-LISP::LET* ((COMMON-LISP-USER::%NAME (COMMON-LISP::CADR . #1=(SYSTEM::))) (COMMON-LISP-USER::%KEY (COMMON-LISP::CADDR . #1#)) (COMMON-LISP-USER::%DURATION (COMMON-LISP::CADDDR . #1#))) (COMMON-LISP::BLOCK COMMON-LISP-USER::DEFINE-SEARCH `(COMMON-LISP::DEFUN ,COMMON-LISP-USER::%NAME (COMMON-LISP-USER::VALUE) (COMMON-LISP-USER::SEARCH-LIBRARY-FOR ,COMMON-LISP-USER::%DURATION) (COMMON-LISP-USER::LIBRARY-MARK-SELECTED-IFF ',COMMON-LISP-USER::%KEY COMMON-LISP-USER::VALUE)))))))))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SEARCH-ARTIST (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::VALUE)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SEARCH-ALBUM (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::VALUE)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SEARCH-GENRE (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::VALUE)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SEARCH-YEAR (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::VALUE)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SEARCH-ALL (SYSTEM::LAMBDA-LIST-TO-SIGNATURE 'COMMON-LISP::NIL))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MARK-ALL-AS (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::BOOL)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MARK-ALL-AS-SELECTED (SYSTEM::LAMBDA-LIST-TO-SIGNATURE 'COMMON-LISP::NIL))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MARK-ALL-AS-UNSELECTED (SYSTEM::LAMBDA-LIST-TO-SIGNATURE 'COMMON-LISP::NIL))) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER:: :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::)) :DIRECT-SLOTS (COMMON-LISP::LIST))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::ENTER-LIBRARY #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-TOTAL-SONGS #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-SELECTED-SONGS #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::ENTER-SELECT #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-TITLE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-ARTIST #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-ALBUM #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-GENRE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-SIZE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-SECONDS #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-TIME #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-DURATION #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-TRACK-NUMBER #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-TRACK-COUNT #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-TRACK #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-YEAR #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-DATE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PRESS-SAME-ALBUM #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PRESS-SAME-ARTIST #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PRESS-SHOW-ALL #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER::EG.MUSIC.BROWSER :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::)) :DIRECT-SLOTS (COMMON-LISP::LIST))) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER::FIT.ACTIONFIXTURE :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::)) :DIRECT-SLOTS (COMMON-LISP::LIST))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LABEL-MAP #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::TYPE-MAP #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER::FIT.ROWFIXTURE :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::)) :DIRECT-SLOTS (COMMON-LISP::LIST))) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER:: :DIRECT-SUPERCLASSES (COMMON-LISP::LIST) :DIRECT-SLOTS (COMMON-LISP::LIST (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::PLAYING :ACCESSORS '(COMMON-LISP-USER::PLAYING) :READERS '(COMMON-LISP-USER::PLAYING) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::PLAYING)) :ALLOCATION :CLASS :INITER (COMMON-LISP::CONS #1='COMMON-LISP::NIL COMMON-LISP::NIL) :TYPE ''COMMON-LISP-USER::) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::PAUSED :ACCESSORS '(COMMON-LISP-USER::PAUSED) :READERS '(COMMON-LISP-USER::PAUSED) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::PAUSED)) :ALLOCATION :CLASS :INITER (COMMON-LISP::CONS #1# 0.) :TYPE ''COMMON-LISP::NUMBER) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::MESSAGE :ACCESSORS '(COMMON-LISP-USER::MESSAGE) :READERS '(COMMON-LISP-USER::MESSAGE) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::MESSAGE)) :ALLOCATION :CLASS :INITER (COMMON-LISP::CONS #1# "") :TYPE ''COMMON-LISP::STRING) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::STATUS :ACCESSORS '(COMMON-LISP-USER::STATUS) :READERS '(COMMON-LISP-USER::STATUS) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::STATUS)) :ALLOCATION :CLASS :INITER (COMMON-LISP::CONS #1# 'COMMON-LISP-USER::READY) :TYPE ''COMMON-LISP::SYMBOL)))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PLAYING #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::PLAYING) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PAUSED #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::PAUSED) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MESSAGE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::MESSAGE) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::STATUS #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::STATUS) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MAKE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PLAY #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PAUSE-PLAYER #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::STOP #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SECONDS-REMAINING #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::MINUTES-REMAINING #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PLAY-STARTED #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PLAY-COMPLETED #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER::EG.MUSIC.REALTIME :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::)) :DIRECT-SLOTS (COMMON-LISP::LIST (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::SIMULATOR :ACCESSORS '(COMMON-LISP-USER::SIMULATOR) :READERS '(COMMON-LISP-USER::SIMULATOR) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::SIMULATOR)) :ALLOCATION :CLASS :INITER (COMMON-LISP::CONS #'(COMMON-LISP::LAMBDA COMMON-LISP::NIL (CLOS::MAKE-INSTANCE 'COMMON-LISP-USER::)) . #1=('COMMON-LISP::NIL))) (COMMON-LISP::LIST :NAME 'COMMON-LISP-USER::PLAYER :ACCESSORS '(COMMON-LISP-USER::PLAYER) :READERS '(COMMON-LISP-USER::PLAYER) :WRITERS '((COMMON-LISP::SETF COMMON-LISP-USER::PLAYER)) :ALLOCATION :CLASS :INITER (COMMON-LISP::CONS #'(COMMON-LISP::LAMBDA COMMON-LISP::NIL (CLOS::MAKE-INSTANCE 'COMMON-LISP-USER::)) . #1#))))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::SIMULATOR #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::SIMULATOR) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PLAYER #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN '(COMMON-LISP::SETF COMMON-LISP-USER::PLAYER) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::TYPE-MAP #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::ENTER #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PRESS-PLAY #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PRESS-PAUSE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PAUSE #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-STATUS #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-MESSAGE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-PLAYING #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::CHECK-REMAINING #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::AWAIT-SEARCH-COMPLETE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::AWAIT-PLAY-COMPLETE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::PRESS-OK #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::FAIL-LOAD-JAM #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER::EG.MUSIC.DISPLAY :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::FIT.ROWFIXTURE)) :DIRECT-SLOTS (COMMON-LISP::LIST))) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::GET-TARGET-CLASS #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::QUERY #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::TYPE-MAP #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (SYSTEM::C-DEFUN 'COMMON-LISP-USER::LABEL-MAP #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) COMMON-LISP::NIL 'CLOS::DEFMETHOD)) (COMMON-LISP::PROGN (CLOS::ENSURE-CLASS 'COMMON-LISP-USER::FIT.SUMMARY :DIRECT-SUPERCLASSES (COMMON-LISP::LIST (CLOS::FIND-CLASS 'COMMON-LISP-USER::)) :DIRECT-SLOTS (COMMON-LISP::LIST)))