jmercouris

(create-or-update
 'reviews ;; class
 (find-dao 'reviews :user user) ;; predicate
 ((slot-name . value) ;; values
  (slot-name . value)))


(let ((object (find-dao 'reviews :user user)))
  (if object
      (progn

jmercouris

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ASD File in Question
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(asdf:defsystem "app"
  :version "0.1.0"
  :author "Atlas Engineer LLC"
  :depends-on ("clack"
               "lack"
               "caveman2"
               "envy"

jmercouris

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ASD File in Question
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(asdf:defsystem "app"
  :version "0.1.0"
  :author "Atlas Engineer LLC"
  :depends-on ("clack"
               "lack"
               "caveman2"
               "envy"

jmercouris

(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

jmercouris

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Error
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Invalid initialization argument:
  :PRODUCT
in call for class #<DAO-TABLE-CLASS SOCIALFLIGHT.WEB::SOCIAL-ACCOUNTS>.
   [Condition of type SB-PCL::INITARG-ERROR]
See also:
  Common Lisp Hyperspec, 7.1.2 [:section]

jmercouris

System "dbd-postgresql" not found
   [Condition of type QUICKLISP-CLIENT:SYSTEM-NOT-FOUND]

Restarts:
 0: [CONTINUE] Try again
 1: [ABORT] Give up on "dbd-postgresql"
 2: [RETRY] Retry SLIME REPL evaluation request.
 3: [*ABORT] Return to SLIME's top level.
 4: [REMOVE-FD-HANDLER] Remove #<SB-IMPL::HANDLER INPUT on descriptor 6: #<CLOSURE (LABELS SWANK/SBCL::RUN :IN SWANK/BACKEND:ADD-FD-HANDLER) {1004A4496B}>>
 5: [ABORT] Exit debugger, returning to top level.

jmercouris

########################################################################
# CURRENT CONFIGURATION
########################################################################
server {
    listen       80;
    server_name  www.example.com example.com;
    return       301 https://$host$request_uri;

    location /static/ {
        alias /root/directory/static/;

jmercouris

Table 1:
      id, email, password

Table 2:
      id, table_1_id


How can I get all rows from table 1, where a row with a corresponding
table_1_id does not exist.

jmercouris

Enabled minor modes: Async-Bytecomp-Package Auto-Composition
Auto-Compression Auto-Encryption Auto-Revert Beacon Column-Number
Company Delete-Selection Diff-Auto-Refine Disable-Mouse-Global Eldoc
Electric-Indent File-Name-Shadow Font-Lock Global-Eldoc
Global-Font-Lock Global-Git-Commit Global-Hl-Line Global-Magit-File
Highlight-Indentation Highlight-Parentheses Ivy Line-Number
Magit-Auto-Revert Magit-File Mouse-Wheel Override-Global Paredit
Popwin Projectile Shell-Dirtrack Slime Slime-Autodoc
Slime-Trace-Dialog Smartparens Tracking Transient-Mark Which-Key Yas
Yas-Global

jmercouris

DB> (sxql:insert-into :Administrator (set= :Password "lol"))
#<SXQL-STATEMENT: INSERT INTO administrator (password) VALUES ('lol')>

;; Desired Result
DB> (sxql:insert-into :Administrator (set= :Password "lol"))
#<SXQL-STATEMENT: INSERT INTO Administrator (Password) VALUES ('lol')>