diff --git a/ook-package.xfasl b/ook-package.xfasl deleted file mode 100644 index 5eccd70ba5e20e61aa3db0c4fce1fd5295545b4f..0000000000000000000000000000000000000000 Binary files a/ook-package.xfasl and /dev/null differ diff --git a/ook.xfasl b/ook.xfasl deleted file mode 100644 index 53ca1c476b51358fa43ad9b1cb235403a619b249..0000000000000000000000000000000000000000 Binary files a/ook.xfasl and /dev/null differ diff --git a/tmp/dbdb.lisp b/tmp/dbdb.lisp deleted file mode 100644 index 1ad9c1df22bf2e80983285d43a202aca3fafbb19..0000000000000000000000000000000000000000 --- a/tmp/dbdb.lisp +++ /dev/null @@ -1,325 +0,0 @@ -;;;; -*- Mode: Lisp -*- - -;;;; DOC-BITS DB File. - -;;;; The actual documentation strings can be modifed. - - -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::MK-SYSTEM-DOC-BIT :NAME :OOK - :KIND MAKE::SYSTEM - :KIND-TAG "System" - :DOC-STRING "A CL compiler and enviroment for literate Orangutang." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.system" - :DEPENDS-ON NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::ASDF-SYSTEM-DOC-BIT :NAME :OOK - :KIND ASDF/SYSTEM:SYSTEM - :KIND-TAG "System" - :DOC-STRING "A CL compiler and enviroment for literate Orangutans." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.asd" - :DEPENDS-ON NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::FUNCTION-DOC-BIT :NAME OOK:KOO - :KIND FUNCTION - :KIND-TAG "Function" - :DOC-STRING "The Ook decompiler. - -Takes the LAMBDA generated by the compiler and wirtes out the programs -in a format readable by an orangutan (or by a well fed and drunk -wizard, unless he is asleep, which will be the case most of the time -when well fed and drunk). - -I am repeating this because KOO is called by OOK! (the decompiler) and -wizards have been known to require more than a repetition of whatever -it is said (especially during Faculty Meetings.) - -See Also: - -OOK! -" - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST (OOK::OOKS - &OPTIONAL - (OOK::LIBRARY-STREAM - *STANDARD-OUTPUT*)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::PARAMETER-DOC-BIT :NAME OOK::*LIBRARY* - :KIND VARIABLE - :KIND-TAG "Parameter" - :DOC-STRING "The place where library is located (can be 'unseen')." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :INITIAL-VALUE NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::FUNCTION-DOC-BIT :NAME OOK:OOK? - :KIND FUNCTION - :KIND-TAG "Function" - :DOC-STRING "The main request for interpretation of OOKS. - -Or to peel a banana. Works as well. It is actually a wrapper for -gently asking the Librarian for some information. - -See Also: - -GENTLY-ASK-THE-LIBRARIAN -" - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST (OOK::OOKS) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::FUNCTION-DOC-BIT :NAME OOK::MAKE-LIBRARY - :KIND FUNCTION - :KIND-TAG "Function" - :DOC-STRING "Creates the memory where the progr... sorry, the 'ooks', reside." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST NIL - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::FUNCTION-DOC-BIT :NAME OOK:OOK! - :KIND FUNCTION - :KIND-TAG "Function" - :DOC-STRING "The Ook decompiler. - -Takes the LAMBDA generated by the compiler and wirtes out the programs -in a format readable by an orangutan (or by a well fed and drunk -wizard, unless he is asleep, which will be the case most of the time -when well fed and drunk). - -See Also: - -KOO -" - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST (OOK::OOKS - &OPTIONAL - (OOK::LIBRARY-STREAM - *STANDARD-OUTPUT*)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::FUNCTION-DOC-BIT :NAME OOK:GENTLY-ASK-THE-LIBRARIAN - :KIND FUNCTION - :KIND-TAG "Function" - :DOC-STRING "ACTUALLY, the main request for interpretation of OOKS. - -Naturally, to be asked gently. - -It compiles the OOKS and executes them if the optional RUN parameter is T; -it returns the compiled function that contains the OOKS. The function -can then be reused as needed. - -Arguments and Values: - -OOKS : some 'ooks'. -RUN : a generalized boolean, default is T. -result : a compiled function taking no arguments. - - -Examples: - -cl-prompt> (ook? #P\"bottles.ook\") - -Notes: - -The compiler (which eventually calls the CL compile -function) may take a long time. Whether this is due to the size of -the TAGBODY generated or whether the Librarian has run out of bananas -and went looking for them in the Unseen University kitchen, it is -unknown, but, surely, somewhat magical. - -See Also: - -OOK? OOK. -" - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST (OOK::OOKS - &OPTIONAL - (OOK::RUN - T)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::CONSTANT-DOC-BIT :NAME OOK::+OOKS+ - :KIND |IT.UNIMIB.DISCO.MA.CL.HELambdaP|::CONSTANT - :KIND-TAG "Constant" - :DOC-STRING "Need we say more?" - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :INITIAL-VALUE '(OOK:OOK. OOK:OOK? - OOK:OOK!)) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::GENERIC-FUNCTION-DOC-BIT :NAME OOK:OOK. - :KIND FUNCTION - :KIND-TAG "Generic Function" - :DOC-STRING "The OOK compiler entry point. - -This generic function just wraps the actual compiler, which expects a -list of - you guessed it - 'ooks'. - -Arguments and Values: - -OOKS : see the methods' descriptions. -result : a lambda-expression taking no arguments." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST (OOK::OOKS) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :METHODS (#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "Dispatches on a pathname containing the OOKS." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - STRING)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) - #S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "The pathname containing the OOKS is opened and its content read." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - PATHNAME)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) - #S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "Compiles the OOKS from the (banana) STREAM." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - STREAM)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) - #S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "OOKS is a list of OOKs to be compiled pair by pair. - -The result is a LAMBDA of no arguments that contains the compiled -program (essentially a giant TAGBODY)." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - LIST)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) - #S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "You are in trouble! This method says 'monkey?!?." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - T)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL))) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "Dispatches on a pathname containing the OOKS." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - STRING)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "The pathname containing the OOKS is opened and its content read." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - PATHNAME)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "Compiles the OOKS from the (banana) STREAM." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - STREAM)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "OOKS is a list of OOKs to be compiled pair by pair. - -The result is a LAMBDA of no arguments that contains the compiled -program (essentially a giant TAGBODY)." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - LIST)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::METHOD-DOC-BIT :NAME OOK:OOK. - :KIND METHOD - :KIND-TAG "Method" - :DOC-STRING "You are in trouble! This method says 'monkey?!?." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :LAMBDA-LIST ((OOK::OOKS - T)) - :TYPE-DECLARATIONS NIL - :FTYPE-DECLARATIONS NIL - :VALUES NIL - :QUALIFIERS NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::PARAMETER-DOC-BIT :NAME OOK::*INDEX* - :KIND VARIABLE - :KIND-TAG "Parameter" - :DOC-STRING "The library counter (counts more than banana peels)." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :INITIAL-VALUE NIL) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::CONSTANT-DOC-BIT :NAME OOK:MONKEY?!? - :KIND |IT.UNIMIB.DISCO.MA.CL.HELambdaP|::CONSTANT - :KIND-TAG "Constant" - :DOC-STRING "You are in trouble if you call him 'monkey'!" - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook.lisp" - :INITIAL-VALUE 'OOK:MONKEY?!?) -#S(|IT.UNIMIB.DISCO.MA.CL.HELambdaP|::PACKAGE-DOC-BIT :NAME "OOK" - :KIND PACKAGE - :KIND-TAG "Package" - :DOC-STRING "The OOK Package." - :TIMESTAMP 3691381310 - :LOCATION #P"/Users/marcoxa/Projects/Lang/CL/OOK/ook-package.lisp" - :USE-LIST ("CL") - :NICKNAMES NIL) - -;;;; end of file -- DOC BITS DB File. --