Commit 6e2fec66 authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed problem with new ensure-keyword function.

parent 41acedec
......@@ -110,7 +110,7 @@ Optionally a different test than #'eql can be specified with the :test keyword a
(defun ensure-keyword (&rest strings)
(if (and (= (length strings) 1) (keywordp (first strings)))
(first strings)
(make-keyword strings)))
(apply #'make-keyword strings)))
(defun make-keyword (&rest strings)
"Keyword symbol. Converts given strings to a keyword.
......@@ -63,7 +63,7 @@
(compute-root-path (reverse (if instance-id components (rest (rest components))))))))
(respondent (when root-object (the-object root-object (follow-root-path root-path)))))
(print-variables instance-id root-object root-path respondent)
(print-variables components instance-id root-object root-path respondent)
;; FLAG -- use actual application-root rather than global root here
......@@ -12,9 +12,10 @@
:version "2012040100"
:depends-on (:gdl-gwl-graphics
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