; 
; 
; File: /home/tobias/software/mudballs/systems/mudballs/0.3.9/sysdef.lisp

; In: DEFMACRO DEFINE-SYSTEM

;   (DEFMACRO DEFINE-SYSTEM (NAME # &BODY OPTIONS)
;     (DECLARE #)
;     "Define a system called NAME of a class with superclasses SUPERCLASSES and customized using OPTIONS.
; NAME may be a symbol, which defines a system called name, or a list
; of the form (SYSTEM [MODULES*] NAME) which defines a new MODULE on component ..)
; --> BLOCK LET* 
; ==>
;   (LET* (# # #)
;     (DECLARE #)
;     (IF # `# `#))
; Note: Abbreviated type declaration: (SYSTEM-NAME NAME).
; 

; In: DEFMETHOD PERFORM :BEFORE (STUB-SYSTEM ACTION)

;   (DEFMETHOD PERFORM :BEFORE (# # &REST ACTION-DATA &KEY ...)
;     (LOAD-SYSTEM-DEFINITION SYSTEM))
; --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST* LAMBDA FUNCTION 
; --> CATCH BLOCK C::%WITHIN-CLEANUP MACROLET 
; --> PCL::FAST-LEXICAL-METHOD-FUNCTIONS PCL::BIND-FAST-LEXICAL-METHOD-MACROS 
; --> MACROLET PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND 
; --> LET FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS 
; ==>
;   (LET* (# #)
;     (DECLARE #)
;     (DECLARE #)
;     (DECLARE #)
;     ...)
; Note: Variable ACTION-DATA defined but never used.
; 

; In: LAMBDA (#:WHOLE-0 #:ENV-1)

;   (LET* (# # #)
;     (DECLARE #)
;     (IF # `# `#))
; Note: Abbreviated type declaration: (SYSTEM-NAME NAME).
; 

; 
; 
; File: /home/tobias/software/mudballs/systems/mudballs/0.3.9/mudballs.lisp

; In: DEFUN AUTOLOAD

;   (ERROR "Specified system (~A) has been loaded but has not redefinied ~A.~%"
;          SYSTEM
;          FUNC)
; Note: Deleting unreachable code.
; 

; In: DEFACTION-WRAPPER TEST

;   (DEFACTION-WRAPPER TEST (FIND-SYMBOL "TEST-ACTION" 'SYSDEF) :NEEDS
;    (:TEST-ACTION) ...)
; --> DEFGENERIC PROGN PUSH LET* LET* DEFMETHOD PROGN PCL::LOAD-DEFMETHOD LIST* 
; --> LIST* LAMBDA FUNCTION CATCH BLOCK C::%WITHIN-CLEANUP MACROLET 
; --> PCL::FAST-LEXICAL-METHOD-FUNCTIONS PCL::BIND-FAST-LEXICAL-METHOD-MACROS 
; --> MACROLET PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND 
; --> LET FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS 
; ==>
;   (LET* (# #)
;     (DECLARE #)
;     (BLOCK TEST #))
; Note: Variable ARGS defined but never used.
; 

; In: DEFACTION-WRAPPER STAT

;   (DEFACTION-WRAPPER STAT 'MB.SYSDEF::STAT-ACTION :NEEDS (:STAT-ACTION))
; --> DEFGENERIC PROGN PUSH LET* LET* DEFMETHOD PROGN PCL::LOAD-DEFMETHOD LIST* 
; --> LIST* LAMBDA FUNCTION CATCH BLOCK C::%WITHIN-CLEANUP MACROLET 
; --> PCL::FAST-LEXICAL-METHOD-FUNCTIONS PCL::BIND-FAST-LEXICAL-METHOD-MACROS 
; --> MACROLET PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND 
; --> LET FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS 
; ==>
;   (LET* (# #)
;     (DECLARE #)
;     (BLOCK STAT #))
; Note: Variable ARGS defined but never used.
; 

; In: DEFACTION-WRAPPER DOCUMENT

;   (DEFACTION-WRAPPER DOCUMENT
;    (INTERN "DOCUMENT-ACTION" :SYSDEF.DOCUMENT-ACTION) :NEEDS
;    (:DOCUMENT-ACTION))
; --> DEFGENERIC PROGN PUSH LET* LET* DEFMETHOD PROGN PCL::LOAD-DEFMETHOD LIST* 
; --> LIST* LAMBDA FUNCTION CATCH BLOCK C::%WITHIN-CLEANUP MACROLET 
; --> PCL::FAST-LEXICAL-METHOD-FUNCTIONS PCL::BIND-FAST-LEXICAL-METHOD-MACROS 
; --> MACROLET PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND 
; --> LET FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS 
; ==>
;   (LET* (# #)
;     (DECLARE #)
;     (BLOCK DOCUMENT #))
; Note: Variable ARGS defined but never used.
; 

; In: DEFACTION-WRAPPER UNINSTALL

;   (DEFACTION-WRAPPER UNINSTALL (INTERN "UNINSTALL-ACTION" :INSTALLER) :NEEDS
;    (#))
; --> DEFGENERIC PROGN PUSH LET* LET* DEFMETHOD PROGN PCL::LOAD-DEFMETHOD LIST* 
; --> LIST* LAMBDA FUNCTION CATCH BLOCK C::%WITHIN-CLEANUP MACROLET 
; --> PCL::FAST-LEXICAL-METHOD-FUNCTIONS PCL::BIND-FAST-LEXICAL-METHOD-MACROS 
; --> MACROLET PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND 
; --> LET FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS 
; ==>
;   (LET* (# #)
;     (DECLARE #)
;     (BLOCK UNINSTALL #))
; Note: Variable ARGS defined but never used.
; 

; In: DEFUN MUDBALLS:ADD

;   (ADD-DEFINITION URL)
; Warning: Undefined function MUDBALLS::ADD-DEFINITION 
; 

; In: DEFUN MUDBALLS:SEARCH

;   (CREATE-SCANNER (STRING REGEX) :CASE-INSENSITIVE-MODE T)
; Warning: Undefined function MUDBALLS::CREATE-SCANNER 
; 

; In: DEFUN MUDBALLS:REMOVE

;   (REMOVE-DEFINITION URL)
; Warning: Undefined function MUDBALLS::REMOVE-DEFINITION 
; 

; In: DEFUN MUDBALLS::SYSTEMS-MATCHING-REGEX

;   (SCAN REGEX X)
; Warning: Undefined function MUDBALLS::SCAN 
; 

; In: DEFUN MUDBALLS::REPORT-ON-SYSTEM

;   (SPLIT " " (OR # "No documentation present."))
; Warning: Undefined function MUDBALLS::SPLIT 
; ; 

; Warning: These functions are undefined:
;   MUDBALLS::ADD-DEFINITION MUDBALLS::CREATE-SCANNER MUDBALLS::REMOVE-DEFINITION MUDBALLS::SCAN MUDBALLS::SPLIT
; 

; Compilation unit finished.
;   6 warnings
;   7 notes

Warning:  Redefining MUDBALLS version 0.3.9.
.
 Did 1 check.
    Pass: 1 (100%)
    Skip: 0 ( 0%)
    Fail: 0 ( 0%)