Commit e138a145 authored by Nikodemus Siivola's avatar Nikodemus Siivola

required-argument

parent d670d4fb
...@@ -5,6 +5,7 @@ ...@@ -5,6 +5,7 @@
((:static-file "LICENCE") ((:static-file "LICENCE")
(:static-file "tests.lisp") (:static-file "tests.lisp")
(:file "package") (:file "package")
(:file "errors" :depends-on ("package"))
(:file "hash-tables" :depends-on ("package")) (:file "hash-tables" :depends-on ("package"))
(:file "macros" :depends-on ("package")) (:file "macros" :depends-on ("package"))
(:file "symbols" :depends-on ("package")) (:file "symbols" :depends-on ("package"))
......
(in-package :alexandria)
(defun required-argument (&optional name)
"Signals an error for a missing argument of NAME. Intended for
use as an initialization form for structure and class-slots, and
a default value for required keyword arguments."
(error "Required argument~@[~S ~] missing." name))
...@@ -81,4 +81,6 @@ ...@@ -81,4 +81,6 @@
;; Types ;; Types
#:of-type #:of-type
#:type= #:type=
;; Errors
#:required-argument
)) ))
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