dok

mayerrobert · Nov 15, 2024 · ed3b72b · ed3b72b
1 parent a31e842
commit ed3b72b
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/mlib.html b/mlib.html
@@ -1431,7 +1431,7 @@
     ab"
 
 ### Function: error
-    (error [condition-type] control-string args*) -> |
+    (error [condition-type] controlstring-or-formatfunction args*) -> |
 
 Since: 1.5
 

diff --git a/mlib.md b/mlib.md
@@ -1422,7 +1422,7 @@ Sample usage:
     ab"
 
 ### Function: error
-    (error [condition-type] control-string args*) -> |
+    (error [condition-type] controlstring-or-formatfunction args*) -> |
 
 Since: 1.5
 

diff --git a/samples.murmel-mlib/mlib.lisp b/samples.murmel-mlib/mlib.lisp
@@ -4222,13 +4222,13 @@
 
 
 ;;; = Function: error
-;;;     (error [condition-type] control-string args*) -> |
+;;;     (error [condition-type] controlstring-or-formatfunction args*) -> |
 ;;;
 ;;; Since: 1.5
 ;;;
 ;;; A simplified subset of Common Lisp's function `error`.
 (defun error (datum . args)
-  (if (typep datum 'symbol)
+  (if (symbolp datum)
       (jerror datum (apply format (cons nil args)))
       (jerror 'simple-error (apply format (list* nil datum args)))))