Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;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))
***************