> (def-sql-op :truncate (&rest args) > (split-on-keywords ((tables *) (only - ?) (identity - ?) (fkey - ?)) > (cons :tables args) > (let ((identity-str (case identity > (:restart-identity "RESTART IDENTITY ") > (:continue-identity "CONTINUE IDENTITY ")))
Where are you expecting :restart-identity or :continue-identity to come from? An argumentless split-on-keywords arg will simply be T when given. > (fkey-str (case fkey > (:cascade "CASCADE ") > (:restrict "RESTRICT ")))) Same here -- you don't allow any arguments to :fkey. _______________________________________________ postmodern-devel mailing list postmodern-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/postmodern-devel
