extend-vector: Use interned symbol for +not-supplied+

privet-kitty · Nov 12, 2023 · f829233 · f829233
1 parent 442be27
commit f829233
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/module/extend-vector.lisp b/module/extend-vector.lisp
@@ -21,7 +21,7 @@
 
 (defconstant +not-supplied+ (if (boundp '+not-supplied+)
                                 (symbol-value '+not-supplied+)
-                                (make-symbol "NOT-SUPPLIED")))
+                                'not-supplied))
 
 (define-modify-macro extend-vectorf (new-size &optional (initial-element '+not-supplied+))
   (lambda (vector new-size initial-element)