Welcome to the CHICKEN Scheme pasting service

freetds added by ptcek on Wed Sep 24 14:47:08 2014

(use freetds)

(let
  ((conn (make-connection "myip"
                          "myusername"
                          "mypassword"
                          "mydb")))
    (send-query conn "SELECT 1"))

;=>
; Error: unbound variable: main
;
; Call history:
;
; freetds.scm:445: numbers#=
; freetds.scm:442: numbers#=
; freetds.scm:460: numbers#=
; freetds.scm:1058: loop
; freetds.scm:1041: ##sys#call-with-values
; freetds.scm:934: ##sys#make-locative
; freetds.scm:935: values
; freetds.scm:439: numbers#=
; freetds.scm:457: numbers#=
; freetds.scm:451: numbers#=
; freetds.scm:1085: check-server-errors!
; freetds.scm:209: ##sys#gc
; freetds.scm:494: g2318
; freetds.scm:1087: values
; freetds.scm:879: g2806
; freetds.scm:881: set-finalizer!     <--
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the result of `(let ((spammers 'dumb)) spammers)'?
Visually impaired? Let me spell it for you (wav file) download WAV