Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/error.cmp
There are no other files named error.cmp in the archive.
;COMPARISON OF SS:<CLISP.UPSALA>ERROR.CLISP.2 AND PS:<VICTOR.CLISP>ERROR.CLISP.19
;OPTIONS ARE /3
**** FILE SS:<CLISP.UPSALA>ERROR.CLISP.2, 2-72 (4306)
;;; Prettyprint current level only
(defun dump-stack-1 (error-level)
(let ((sp (car error-level))
(p (cdr error-level))
(*print-pretty* t)
item)
(multiple-value-setq (sp p item)
(nextbl sp p))
(cond (p
(if (memq item '(speval sprevl)) (return-from dump-stack-1 nil))
(terpri)
(prin1 sp)
(princ " compiled call to ")
(format t "~S" item))
((and (listp (setq item (cdr item))) (eq (car item) 'block))
(terpri)
(prin1 sp)
(princ " ****** ")
(format t "~S" (cadr item)))
(t
(if (memq item '(speval sprevl)) (return-from dump-stack-1 nil))
(terpri)
(prin1 sp)
(princ " ")
(format t "~S" item)))
))
**** FILE PS:<VICTOR.CLISP>ERROR.CLISP.19, 2-72 (4306)
***************
**** FILE SS:<CLISP.UPSALA>ERROR.CLISP.2, 2-138 (6286)
PP - prettyprint current level
**** FILE PS:<VICTOR.CLISP>ERROR.CLISP.19, 2-111 (5580)
***************
**** FILE SS:<CLISP.UPSALA>ERROR.CLISP.2, 2-171 (7599)
((eq - 'PP) (dump-stack-1 error-level))
((eq - 'GO) (spredo (car error-level)))
((eq - '?) (princ ?))
(T (setq This-Eval (multiple-value-list (speval (car error-level)
-)))
**** FILE PS:<VICTOR.CLISP>ERROR.CLISP.19, 2-143 (6861)
((eq - 'GO) (spredo (car error-level)))
((eq - '?) (princ ?))
(T (setq This-Eval
(multiple-value-list (speval (car error-level) -)))
***************
**** FILE SS:<CLISP.UPSALA>ERROR.CLISP.2, 6-52 (16721)
(T (do-failed-handler condition 'T callers-name continue-string args))
**** FILE PS:<VICTOR.CLISP>ERROR.CLISP.19, 6-52 (15942)
(T
(do-failed-handler condition 'T callers-name continue-string args))
***************