Skip to content

insert-into with a list of records do not work #86

Description

@hermanhel

paritcularly:

(yield (insert-into :person
  (:sex :age :name)
  (list (list "male" 25 "Eitaro Fukamachi")
        (list "female" 16 "Miku Hatsune"))))

from readme

gives

There is no primary method for the generic function
  #<STANDARD-GENERIC-FUNCTION SXQL.SQL-TYPE:YIELD (60)>
when called with arguments
  (((#S(SQL-VARIABLE :VALUE "male") #S(SQL-VARIABLE :VALUE 25)
     #S(SQL-VARIABLE :VALUE "Eitaro Fukamachi"))
    (#S(SQL-VARIABLE :VALUE "female") #S(SQL-VARIABLE :VALUE 16)
     #S(SQL-VARIABLE :VALUE "Miku Hatsune")))).
   [Condition of type SB-PCL::NO-PRIMARY-METHOD-ERROR]

Restarts:
 0: [RETRY] Retry calling the generic function.
 1: [*ABORT] Return to SLY's top level.
 2: [ABORT] abort thread (#<THREAD tid=15974 "slynk-worker" RUNNING {1009A77AF3}>)

Backtrace:
 0: ((:METHOD SB-PCL:NO-PRIMARY-METHOD (T)) #<STANDARD-GENERIC-FUNCTION SXQL.SQL-TYPE:YIELD (60)> ((#S(SQL-VARIABLE :VALUE "male") #S(SQL-VARIABLE :VALUE 25) #S(SQL-VARIABLE :VALUE "Eitaro Fukamachi")) (#..
 1: (SB-PCL::CALL-NO-PRIMARY-METHOD #<STANDARD-GENERIC-FUNCTION SXQL.SQL-TYPE:YIELD (60)> (((# # #) (# # #))))
 2: ((:METHOD YIELD (SQL-COMPOSED-STATEMENT)) #<error printing INSERT-INTO-STATEMENT {1009DFA523}>) [fast-method]
 3: ((:METHOD YIELD (INSERT-INTO-STATEMENT)) #<error printing INSERT-INTO-STATEMENT {1009DFA523}>) [fast-method]
 4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (YIELD (DESTRUCTURING-BIND (TABLE-NAME &REST RESTARGS) (LIST :PERSON # #) (IN-PACKAGE :SXQL.STATEMENT) (APPLY # #))) #<NULL-LEXENV>)
 5: (EVAL (YIELD (DESTRUCTURING-BIND (TABLE-NAME &REST RESTARGS) (LIST :PERSON # #) (IN-PACKAGE :SXQL.STATEMENT) (APPLY # #))))
 6: ((LAMBDA NIL :IN SLYNK:PPRINT-EVAL))
 --more--

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions