Commit 615b44ad authored by wlott's avatar wlott
Browse files

Default the name slot in defmacro-lambda-list-bind-errors to NIL.

parent e22cd8af
...@@ -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/code/defmacro.lisp,v 1.16 1993/08/30 21:19:50 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.17 1994/02/04 15:23:16 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -325,8 +325,11 @@ ...@@ -325,8 +325,11 @@
;;;; Conditions signaled at runtime by the resultant body. ;;;; Conditions signaled at runtime by the resultant body.
(define-condition defmacro-lambda-list-bind-error (error) (define-condition defmacro-lambda-list-bind-error (error)
((kind :reader defmacro-lambda-list-bind-error-kind :initarg :kind) ((kind :reader defmacro-lambda-list-bind-error-kind
(name :reader defmacro-lambda-list-bind-error-name :initarg :name))) :initarg :kind)
(name :reader defmacro-lambda-list-bind-error-name
:initarg :name
:initform nil)))
(defun print-defmacro-ll-bind-error-intro (condition stream) (defun print-defmacro-ll-bind-error-intro (condition stream)
(if (null (defmacro-lambda-list-bind-error-name condition)) (if (null (defmacro-lambda-list-bind-error-name condition))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment