From d82ba967e288a4bbbe1f76809bb2be8630fbf8c3 Mon Sep 17 00:00:00 2001 From: Vladimir Sedach Date: Tue, 27 Apr 2010 09:45:53 -0400 Subject: [PATCH] Removed %check-once-only type check. --- src/compiler.lisp | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index a81c220..3e4f79b 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -195,9 +195,7 @@ form, FORM, returns the new value for *ps-compilation-level*." (incf *ps-gensym-counter*))))) (defmacro with-ps-gensyms (symbols &body body) - "Evaluate BODY with SYMBOLS bound to unique ParenScript identifiers. - -Each element of SYMBOLS is either a symbol or a list of (symbol + "Each element of SYMBOLS is either a symbol or a list of (symbol gensym-prefix-string)." `(let* ,(mapcar (lambda (symbol) (destructuring-bind (symbol &optional prefix) @@ -210,13 +208,7 @@ gensym-prefix-string)." symbols) ,@body)) -(defun %check-once-only-vars (vars) - (let ((bad-var (find-if (lambda (x) (or (not (symbolp x)) (keywordp x))) vars))) - (when bad-var - (error "PS-ONLY-ONCE expected a non-keyword symbol but got ~s" bad-var)))) - (defmacro ps-once-only ((&rest vars) &body body) - (%check-once-only-vars vars) (let ((gensyms (mapcar (lambda (x) (ps-gensym (string x))) vars))) `(let ,(mapcar (lambda (g v) `(,g (ps-gensym ,(string v)))) gensyms vars) `(let* (,,@(mapcar (lambda (g v) ``(,,g ,,v)) gensyms vars)) -- 2.11.4.GIT