Script started on Mon Mar 01 12:36:55 2004
pollux {~/cse740/GCD_project} >	acl

International Allegro CL Enterprise Edition
6.2 [Solaris] (Oct 28, 2003 9:00)
Copyright (C) 1985-2002, Franz Inc., Berkeley, CA, USA.  All Rights Reserved.

This development copy of Allegro CL is licensed to:
   [4549] SUNY/Buffalo, N. Campus

;; Optimization settings: safety 1, space 1, speed 1, debug 2.
;; For a complete description of all compiler switches given the
;; current optimization settings evaluate (explain-compiler-settings).
;;---
;; Current reader case mode: :case-sensitive-lower
cl-user(1): (load "/projects/snwiz/bin/sneps")
; Loading /projects/snwiz/bin/sneps.lisp
Loading system SNePS...10% 20% 30% 40% 50% 60% 70% 80% 90% 100% 
SNePS-2.6 [PL:0a 2002/09/30 22:37:46] loaded.
Type `(sneps)' or `(snepslog)' to get started.
t
cl-user(2): (load "BuildDivisorList")
; Loading /home/csgrad/ag33/cse740/GCD_project/BuildDivisorList.lisp
t
cl-user(3): (setf dlist (build-divisor-list 100 1 nil))
(1 2 4 5 10 20 25 50 100)
cl-user(4): dlist
(1 2 4 5 10 20 25 50 100)
cl-user(5): (sneps  -divisor-list dlist)

SNePS ERROR: first is not a relation
Occurred in module relationset-evaluator in function rseval


Do you want to debug it? no
nil
cl-user(6): (sneps)


   Welcome to SNePS-2.6 [PL:0a 2002/09/30 22:37:46]

Copyright (C) 1984--2002 by Research Foundation of
State University of New York. SNePS comes with ABSOLUTELY NO WARRANTY!
Type `(copyright)' for detailed copyright information.
Type `(demo)' for a list of example applications.

   3/1/2004 12:40:53

* (define first rest)

(first rest)

 CPU time : 0.00 

* (lisp)
"End of SNePS"
cl-user(7): (sneps-divisor-list dlist)
(m1!)
sneps:default-defaultct
cl-user(8): (sneps    neps)


   Welcome to SNePS-2.6 [PL:0a 2002/09/30 22:37:46]

Copyright (C) 1984--2002 by Research Foundation of
State University of New York. SNePS comes with ABSOLUTELY NO WARRANTY!
Type `(copyright)' for detailed copyright information.
Type `(demo)' for a list of example applications.

   3/1/2004 12:41:43

* (describe m1)

(m1! (first 1) (rest 2))

(m1!)

 CPU time : 0.00 

* (lisp)
"End of SNePS"
cl-user(9): (exit)
; Exiting Lisp
pollux {~/cse740/GCD_project} >	(exit)

pollux {~/cse740/GCD_project} >	exit

exit

script done on Mon Mar 01 12:42:27 2004