aboutsummaryrefslogtreecommitdiff
path: root/json-template.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'json-template.lisp')
-rw-r--r--json-template.lisp6
1 files changed, 4 insertions, 2 deletions
diff --git a/json-template.lisp b/json-template.lisp
index 9e36a42..d4b768d 100644
--- a/json-template.lisp
+++ b/json-template.lisp
@@ -47,8 +47,8 @@
(list #\. #\#))))
until (null terminator)))
-(defun parse-template-string (stream)
- (parse-raw-tokens (tokenize-template-string stream)))
+(defun parse-template-string (string)
+ (parse-raw-tokens (tokenize-template-string string)))
(defun parse-directive (string)
(let* ((space1 (position #\Space string))
@@ -128,6 +128,8 @@
(defun getcontext (context key &aux (result context))
(dolist (key-component key result)
+ (when (atom result)
+ (return-from getcontext nil))
(setq result
(getf result
key-component