; SLIME 2006-11-26
CL-USER> (load "make.lisp")
; compiling file "/home/ctobrey/opt/lisp/proj1/degree/degree.lisp" (written 05 FEB 2008 09:48:08 AM):
; compiling (DEFUN MAPPEND ...)
; compiling (DEFPARAMETER *DEGREE* ...)
; compiling (DEFVAR *GRAMMAR* ...)
; compiling (DEFUN ONE-OF ...)
; compiling (DEFUN RANDOM-ELT ...)
; compiling (DEFUN RULE-LHS ...)
; compiling (DEFUN RULE-RHS ...)
; compiling (DEFUN REWRITES ...)
; compiling (DEFUN GENERATE ...)
; compiling (EGS :DEGREE ...)

; /home/ctobrey/opt/lisp/proj1/degree/degree.fasl written
; compilation finished in 0:00:00
T
CL-USER> (demo :all)

;;;; 1) Degree Generations
;IN:   (DEMO DEGREE)

;;;; 1) Generate a CPE major...
;IN:   (GENERATE 'CPE)
;GOT:  (ENGR-101 ENGR-199 ANGR-102 ENGL-101 ENGL-102 MATH-155 MATH-156
        PHYS-111 PHYS-112 STAT-215 ECON-201 ECON-202 SENIOR-PROJECT
        CPE-271 CPE-272 MATH-251 MATH-261 EE-221 EE-222 CS-110 EE-223
        EE-224 EE-251 EE-252 CPE-310 CPE-311 CS-111 EE-327 EE-355 EE-356
        MATH-375 CPE-312 CPE-313 CS-230 CS-350 CS-450 CS-422 POLS-102)
;ok

;;;; 2) Generate an EE major...
;IN:   (GENERATE 'EE)
;GOT:  (MATH-251 MATH-261 CPE-271 CPE-272 CS-110 EE-223 EE-224 EE-251
        EE-252 EE-327 EE-335 EE-356 EE-355 EE-356 CEP-310 CPE-311 EE-328
        EE-329 BASKET-WEAVING ENGR-101 ENGR-199 ANGR-102 ENGL-101 ENGL-102
        MATH-155 MATH-156 PHYS-111 PHYS-112 STAT-215 ECON-201 ECON-202
        SENIOR-PROJECT EE-ELECTIVES POLS-102)
;ok

;;;; 3) Generate a CS major...
;IN:   (GENERATE 'CS)
;GOT:  (ENGR-101 ENGR-199 ANGR-102 ENGL-101 ENGL-102 MATH-155 MATH-156
        PHYS-111 PHYS-112 STAT-215 ECON-201 ECON-202 SENIOR-PROJECT CS-110
        CS-111 CPE-271 CPE-272 CS-210 CS-220 CS-310 CS-311 CS-221 CS-230
        CS-310 CS-350 CPE-471 MUS-101)
;ok
;GOT:  0
;ok
0
CL-USER> (generate 'ee-core)
(MATH-251 MATH-261 CPE-271 CPE-272 CS-110 EE-223 EE-224 EE-251 EE-252 EE-327
 EE-335 EE-356 EE-355 EE-356 CEP-310 CPE-311 EE-328 EE-329 BASKET-WEAVING)
CL-USER>