From 767faaefa5855710da1e5212bf69f262150c04e7 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 15 Oct 2005 16:45:23 +0000 Subject: [PATCH] r10786: fix location of make-load-form --- sql/expressions.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/sql/expressions.lisp b/sql/expressions.lisp index 23eae96..67fc6fa 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -131,11 +131,6 @@ :initform +null-string+)) (:documentation "An SQL Attribute identifier.")) -(defmethod make-load-form ((self sql-relational-exp) &optional environment) - (make-load-form-saving-slots self - :slot-names '(operator sub-expressions) - :environment environment)) - (defmethod collect-table-refs (sql) (declare (ignore sql)) nil) @@ -234,6 +229,11 @@ :initform nil)) (:documentation "An SQL relational expression.")) +(defmethod make-load-form ((self sql-relational-exp) &optional environment) + (make-load-form-saving-slots self + :slot-names '(operator sub-expressions) + :environment environment)) + (defmethod collect-table-refs ((sql sql-relational-exp)) (let ((tabs nil)) (dolist (exp (slot-value sql 'sub-expressions)) -- 2.34.1