X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=e0d2cef682f51d1738885d4351cfb6f3c5bf3303;hb=fcb0cac1b206dacdb3d1043b5393bbb510a00882;hp=90505559e6e466f4076a7f443eda47b38af7ca53;hpb=8972490fe6f9453c5b70dae4fb1141cf9a67f0db;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 9050555..e0d2cef 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -239,11 +239,6 @@ superclass of the newly-defined View Class."
 ;; Called by 'get-slot-values-from-view'
 ;;
 
-(declaim (inline delistify))
-(defun delistify (list)
-  (if (listp list)
-      (car list)
-      list))
 
 (defvar *update-context* nil)