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. --