From f829233bb9dce8edc1eb79b3059c3e3e481d05b2 Mon Sep 17 00:00:00 2001 From: Hugo Sansaqua Date: Sun, 12 Nov 2023 09:21:14 +0900 Subject: [PATCH] extend-vector: Use interned symbol for +not-supplied+ --- module/extend-vector.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/extend-vector.lisp b/module/extend-vector.lisp index 908c4d3..5f2042f 100644 --- 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)