46 lines
1.0 KiB
Plaintext
46 lines
1.0 KiB
Plaintext
;; Function To Be Tested: step
|
|
;;
|
|
;; Source: Guy L Steele's CLTL Chapter 25:Miscellaneous Features
|
|
;; Section: 25.3 Debugging Tools
|
|
;; Page: 441
|
|
;;
|
|
;; Created By: John Park
|
|
;;
|
|
;; Creation Date: Aug 29,1986
|
|
;;
|
|
;; Last Update:
|
|
;;
|
|
;; Filed As: {ERIS}<LISPCORE>CML>TEST>25-3-step.test
|
|
;;
|
|
;;
|
|
;; Syntax: (step form)
|
|
;;
|
|
;; Function Description: This evaluates form and returns what form returns.
|
|
;; However, the user is allowed to interactively "single-step" through the
|
|
;; evaluation steps that are performed interpretively. The following is a list
|
|
;; of possible command for step (ref; VAX LISP 2.0):
|
|
;; (BACKTRACE DEBUG EVALUATE FINISH HELP OVER QUIT RETURN SHOW STEP UP)
|
|
;;
|
|
;; Argument(s): form
|
|
;;
|
|
;; Returns: value of (form)
|
|
;;
|
|
;; Constraints/Limitations: none
|
|
|
|
|
|
|
|
|
|
(do-test "step-test"
|
|
(and (equal (step (identity '(a b c))) '(a b c))
|
|
(eql (step (cos 0)) 1.0)
|
|
(equal (step ((lambda (x y) (append x y)) '(a b) '(c d)))
|
|
'(a b c d))
|
|
(eq (step (setq x 10000)) 10000)
|
|
(equal (step (string 'strings)) "STRINGS")))
|
|
|
|
STOP
|
|
|
|
|
|
|
|
|