Skip to content
Snippets Groups Projects
Commit f2e1c1b5 authored by ram's avatar ram
Browse files

This commit was generated by cvs2svn to compensate for changes in r6726,

which included commits to RCS files with non-trunk default branches.
parents 9cdb3fa1 bc7d8322
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ts-stream.lisp,v 1.1.1.11 1992/12/10 01:11:42 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ts-stream.lisp,v 1.1.1.12 1993/08/30 21:48:47 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -62,7 +62,7 @@ ...@@ -62,7 +62,7 @@
(define-condition unexpected-stream-command (error) (define-condition unexpected-stream-command (error)
;; Context is a string to be plugged into the report text. ;; Context is a string to be plugged into the report text.
((context)) ((context :reader unexpected-stream-command-context :initarg :context))
(:report (lambda (condition stream) (:report (lambda (condition stream)
(format stream "~&Unexpected stream-command while ~A." (format stream "~&Unexpected stream-command while ~A."
(unexpected-stream-command-context condition))))) (unexpected-stream-command-context condition)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment