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

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)