error.lisp

(deftable users ()
  ((email :col-type (or (:varchar 512) :null)
          :initarg :email
          :accessor email)
   (password :col-type (or (:varchar 512) :null)
             :initarg :password
             :deflate #'hash-password
             :accessor password)
   (name :col-type (or (:varchar 512) :null)
         :initarg :name
         :accessor name)
   (password-set-pin :col-type (or :integer :null)
                     :initarg :password-set-pin
                     :accessor password-set-pin)
   (social-accounts :ghost t
                    :initarg :social-accounts
                    :accessor social-accounts)))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Error
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; file: /root/application/source/db.lisp
; in: DEFTABLE USERS
;     ((SOCIALFLIGHT.WEB::EMAIL :COL-TYPE (OR (:VARCHAR 512) :NULL) :INITARG :EMAIL
;       :ACCESSOR SOCIALFLIGHT.WEB::EMAIL)
;      (SOCIALFLIGHT.WEB::PASSWORD :COL-TYPE (OR (:VARCHAR 512) :NULL) :INITARG
;       :PASSWORD :DEFLATE #'SOCIALFLIGHT.WEB::HASH-PASSWORD :ACCESSOR
;       SOCIALFLIGHT.WEB::PASSWORD)
;      (SOCIALFLIGHT.WEB::NAME :COL-TYPE (OR (:VARCHAR 512) :NULL) :INITARG :NAME
;       :ACCESSOR SOCIALFLIGHT.WEB::NAME)
;      (SOCIALFLIGHT.WEB::PASSWORD-SET-PIN :COL-TYPE (OR :INTEGER :NULL) :INITARG
;       :PASSWORD-SET-PIN :ACCESSOR SOCIALFLIGHT.WEB::PASSWORD-SET-PIN)
;      (SOCIALFLIGHT.WEB::SOCIAL-ACCOUNTS :GHOST T :INITARG :SOCIAL-ACCOUNTS
;       :ACCESSOR SOCIALFLIGHT.WEB::SOCIAL-ACCOUNTS))
;
; caught ERROR:
;   illegal function call