lib/keyword.c (kw_parseempty): Use correct variable scanning `kwval' list.

[sod] / src / pset-impl.lisp

diff --git a/src/pset-impl.lisp b/src/pset-impl.lisp
index f5650cf90c558c1c962aae04f40cf75e34c2ff4e..42049dbe6de340f6eb02461a4af19c42e173cb94 100644 (file)
--- a/src/pset-impl.lisp
+++ b/src/pset-impl.lisp
@@ -75,9 +75,9 @@ (defun string-to-symbol
                        name (package-name package)))))))))
 
 (let ((truth-map (make-hash-table :test #'equalp)))
                        name (package-name package)))))))))
 
 (let ((truth-map (make-hash-table :test #'equalp)))

-  (dolist (string '("true" "t" "yes" "on" "verily"))
+  (dolist (string '("true" "t" "yes" "on" "yup" "verily"))

     (setf (gethash string truth-map) t))
     (setf (gethash string truth-map) t))

-  (dolist (string '("false" "nil" "no" "off" "nowise"))
+  (dolist (string '("false" "nil" "no" "off" "nope" "nowise"))

     (setf (gethash string truth-map) nil))
   (defun truishp (string)
     "Convert STRING to a boolean."
     (setf (gethash string truth-map) nil))
   (defun truishp (string)
     "Convert STRING to a boolean."