From 9eb937708bbbd22c177ec6db0936a352071e7bbf Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 11 Apr 2004 12:37:57 +0000 Subject: [PATCH] r8953: fix lispworks gensym --- base/loop-extension.lisp | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/base/loop-extension.lisp b/base/loop-extension.lisp index 0eba251..fb45905 100644 --- a/base/loop-extension.lisp +++ b/base/loop-extension.lisp @@ -112,7 +112,9 @@ :preposition-groups '((:of :in) (:from)) :inclusive-permitted nil) -#+lispworks (in-package loop) +#+lispworks +(eval-when (:compile-toplevel :load-toplevel :execute) + (in-package loop)) #+lispworks (cl-user::define-loop-method (record records tuple tuples) clsql-loop-method @@ -122,6 +124,7 @@ (defun clsql-loop-method (method-name iter-var iter-var-data-type prep-phrases inclusive? allowed-preps method-specific-data) + (declare (ignore method-name inclusive? allowed-preps method-specific-data)) (let ((in-phrase nil) (from-phrase nil)) (loop for (prep . rest) in prep-phrases @@ -146,10 +149,10 @@ (setq from-phrase '(clsql-base-sys:*default-database*))) (cond ((consp iter-var) - (let ((query-var (gensym 'loop-record-)) - (db-var (gensym 'loop-record-database-)) - (result-set-var (gensym 'loop-record-result-set-)) - (step-var (gensym 'loop-record-step-))) + (let ((query-var (gensym "LOOP-RECORD-")) + (db-var (gensym "LOOP-RECORD-DATABASE-")) + (result-set-var (gensym "LOOP-RECORD-RESULT-SET-")) + (step-var (gensym "LOOP-RECORD-STEP-"))) (values t nil @@ -176,9 +179,9 @@ () ()))) (t - (let ((query-var (gensym 'loop-record-)) - (db-var (gensym 'loop-record-database-)) - (result-set-var (gensym 'loop-record-result-set-))) + (let ((query-var (gensym "LOOP-RECORD-")) + (db-var (gensym "LOOP-RECORD-DATABASE-")) + (result-set-var (gensym "LOOP-RECORD-RESULT-SET-"))) (values t nil -- 2.34.1