r9279: Handle differences in direct-slot-definition values which

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 90505559e6e466f4076a7f443eda47b38af7ca53..e0d2cef682f51d1738885d4351cfb6f3c5bf3303 100644 (file)
--- 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)