bash-4.3$ sbcl This is SBCL 1.3.4-1.fc24, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. Welcome to Slade's LISP! * (load "auxfns.lisp") STYLE-WARNING: using deprecated EVAL-WHEN situation names LOAD COMPILE EVAL While evaluating the form starting at line 12, column 0 of #P"/home/classes/cs458/paip/auxfns.lisp": debugger invoked on a SB-KERNEL:SIMPLE-PACKAGE-ERROR in thread #: The name NIL does not designate any package. Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry EVAL of current toplevel form. 1: [CONTINUE] Ignore error and continue loading file "/home/classes/cs458/paip/auxfns.lisp". 2: [ABORT ] Abort loading file "/home/classes/cs458/paip/auxfns.lisp". 3: Exit debugger, returning to top level. (SB-INT:%FIND-PACKAGE-OR-LOSE NIL) 0] 1 STYLE-WARNING: using deprecated EVAL-WHEN situation names COMPILE EVAL LOAD T * (load "mycin.lisp") STYLE-WARNING: Previously compiled calls to COMMON-LISP-USER::PARM-PROMPT and COMMON-LISP-USER::PARM-READER could not be inlined because the structure definition for COMMON-LISP-USER::PARM was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site. T * (load "mycin-r.lisp") While evaluating the form starting at line 64, column 0 of #P"/home/classes/cs458/paip/mycin.lisp": While evaluating the form starting at line 7, column 0 of #P"/home/classes/cs458/paip/mycin-r.lisp": debugger invoked on a DEFCONSTANT-UNEQL in thread #: The constant HELP-STRING is being redefined (from "~&Type one of the following: ? - to see possible answers for this parameter rule - to show the current rule why - to see why this question is asked help - to see this list xxx - (for some specific xxx) if there is a definite answer (xxx .5 yyy .4) - If there are several answers with different certainty factors." to "~&Type one of the following: ? - to see possible answers for this parameter rule - to show the current rule why - to see why this question is asked help - to see this list xxx - (for some specific xxx) if there is a definite answer (xxx .5 yyy .4) - If there are several answers with different certainty factors.") See also: The ANSI Standard, Macro DEFCONSTANT The SBCL Manual, Node "Idiosyncrasies" Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [CONTINUE] Go ahead and change the value. 1: [ABORT ] Keep the old value. 2: [RETRY ] Retry EVAL of current toplevel form. 3: Ignore error and continue loading file "/home/classes/cs458/paip/mycin.lisp". 4: Abort loading file "/home/classes/cs458/paip/mycin.lisp". 5: Retry EVAL of current toplevel form. 6: Ignore error and continue loading file "/home/classes/cs458/paip/mycin-r.lisp". 7: Abort loading file "/home/classes/cs458/paip/mycin-r.lisp". 8: Exit debugger, returning to top level. (SB-C::%DEFCONSTANT HELP-STRING "~&Type one of the following: ? - to see possible answers for this parameter rule - to show the current rule why - to see why this question is asked help - to see this list xxx - (for some specific xxx) if there is a definite answer (xxx .5 yyy .4) - If there are several answers with different certainty factors." #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/classes/cs458/paip/mycin.lisp" :TOPLEVEL-FORM-NUMBER 13 :FORM-NUMBER NIL :PLIST NIL) NIL) 0] 0 T * (mycin) ------ PATIENT-1 ------ Patient's name: Sylvia Sex: female Age: 27 ------ CULTURE-1 ------ From what site was the specimen for CULTURE-1 taken? blood How many days ago was this culture (CULTURE-1) obtained? 3 ------ ORGANISM-1 ------ Enter the identity (genus) of ORGANISM-1: ? A IDENTITY must be of type (MEMBER PSEUDOMONAS KLEBSIELLA ENTEROBACTERIACEAE STAPHYLOCOCCUS BACTEROIDES STREPTOCOCCUS) Enter the identity (genus) of ORGANISM-1: unknown The gram stain of ORGANISM-1: ? A GRAM must be of type (MEMBER ACID-FAST POS NEG) The gram stain of ORGANISM-1: neg Is ORGANISM-1 a rod or coccus (etc.): ? A MORPHOLOGY must be of type (MEMBER ROD COCCUS) Is ORGANISM-1 a rod or coccus (etc.): rod What is the AEROBICITY of ORGANISM-1? why [Why is the value of AEROBICITY being asked for?] It is known that: 1) THE GRAM OF THE ORGANISM IS NEG 1) THE MORPHOLOGY OF THE ORGANISM IS ROD Therefore, Rule 107: If 1) THE AEROBICITY OF THE ORGANISM IS AEROBIC Then there is suggestive evidence (0.8) that 1) THE IDENTITY OF THE ORGANISM IS ENTEROBACTERIACEAE What is the AEROBICITY of ORGANISM-1? aerobic Is Sylvia a compromised host? ? A COMPROMISED-HOST must be of type YES/NO Is Sylvia a compromised host? why [Why is the value of COMPROMISED-HOST being asked for?] It is known that: 1) THE GRAM OF THE ORGANISM IS NEG 1) THE MORPHOLOGY OF THE ORGANISM IS ROD Therefore, Rule 75: If 1) THE PATIENT IS COMPROMISED-HOST Then there is suggestive evidence (0.6) that 1) THE IDENTITY OF THE ORGANISM IS PSEUDOMONAS Is Sylvia a compromised host? yes Is Sylvia a burn patient? If so, mild or serious? why [Why is the value of BURN being asked for?] It is known that: 1) THE SITE OF THE CULTURE IS BLOOD 1) THE GRAM OF THE ORGANISM IS NEG 1) THE MORPHOLOGY OF THE ORGANISM IS ROD Therefore, Rule 52: If 1) THE BURN OF THE PATIENT IS SERIOUS Then there is weakly suggestive evidence (0.4) that 1) THE IDENTITY OF THE ORGANISM IS PSEUDOMONAS Is Sylvia a burn patient? If so, mild or serious? serious Findings for ORGANISM-1: Is there another ORGANISM? (y or n) n Is there another CULTURE? (y or n) n Is there another PATIENT? (y or n) n IDENTITY: ENTEROBACTERIACEAE (0.800) PSEUDOMONAS (0.760) NIL *