1.1--- a/lisp/std/condition.lisp Wed Sep 11 17:24:07 2024 -0400
1.2+++ b/lisp/std/condition.lisp Wed Sep 11 18:08:29 2024 -0400
1.3@@ -172,15 +172,11 @@
1.4 ((item
1.5 :initarg :item
1.6 :initform (error "Must specify argument item")
1.7- :reader missing-argument-item)
1.8- (command
1.9- :initarg :command
1.10- :initform (error "Must specify command")
1.11- :reader missing-argument-command))
1.12- (:report (lambda (condition stream)
1.13- (declare (ignore condition))
1.14- (format stream "Missing argument")))
1.15- (:documentation "A condition which is signalled when an option expects an argument, but none was provided"))
1.16+ :reader missing-argument-item))
1.17+ (:report (lambda (condition stream)
1.18+ (declare (ignore condition))
1.19+ (format stream "Missing argument")))
1.20+ (:documentation "A condition which is signalled when an option expects an argument, but none was provided"))
1.21
1.22 (defun missing-argument-p (value)
1.23 (typep value 'missing-argument))