dex experiment

dex.lisp

(let ((p (find-package :cl+ssl)))
  (do-symbols (i p)
    (when (and (eql (symbol-package i) p)
	       (ignore-errors (symbol-function i)))
      (let ((f (symbol-function i)))
	(unless (typep f 'standard-generic-function)
	  (setf (fdefinition i)
		(lambda (&rest r)
		  (print (cons i r))
		  (apply f r))))))))

;;(drakma:http-request "https://api.github.com")
'(
(CL+SSL:MAKE-SSL-CLIENT-STREAM 896 :HOSTNAME "api.github.com" :CLOSE-CALLBACK
                               #<CLOSURE (LAMBDA ()
                                           :IN
                                           DRAKMA::MAKE-SSL-STREAM) {25BAC775}>
                               :CERTIFICATE NIL :KEY NIL :PASSWORD NIL) 
(CL+SSL:ENSURE-INITIALIZED :METHOD CL+SSL::SSL-V23-METHOD) 
(CL+SSL::SSL-INITIALIZED-P) 
(CL+SSL::SSL-NEW #.(SB-SYS:INT-SAP #X04404270)) 
(CL+SSL::SSL-SET-TLSEXT-HOST-NAME #.(SB-SYS:INT-SAP #X0440C220)
                                  #.(SB-SYS:INT-SAP #X0441A138)) 
(CL+SSL::SSL-CTRL #.(SB-SYS:INT-SAP #X0440C220) 55 0
                  #.(SB-SYS:INT-SAP #X0441A138)) 
(CL+SSL::INSTALL-HANDLE-AND-BIO #<CL+SSL::SSL-STREAM for 896>
                                #.(SB-SYS:INT-SAP #X0440C220) 896 T) 
(CL+SSL::INSTALL-NONBLOCK-FLAG 896) 
(CL+SSL::SSL-SET-FD #.(SB-SYS:INT-SAP #X0440C220) 896) 
(CL+SSL::SSL-CTX-CTRL #.(SB-SYS:INT-SAP #X0440C220) 33 2
                      #.(SB-SYS:INT-SAP #X00000000)) 
(CL+SSL::SSL-SET-CONNECT-STATE #.(SB-SYS:INT-SAP #X0440C220)) 
(CL+SSL::SSL-SET-CIPHER-LIST #.(SB-SYS:INT-SAP #X0440C220) "ALL") 
(CL+SSL::INSTALL-KEY-AND-CERT #.(SB-SYS:INT-SAP #X0440C220) NIL NIL) 
(CL+SSL::SSL-CONNECT #.(SB-SYS:INT-SAP #X0440C220)) 
(CL+SSL::SSL-GET-ERROR #.(SB-SYS:INT-SAP #X0440C220) -1) 
(CL+SSL::SSL-GET-FD #.(SB-SYS:INT-SAP #X0440C220)) 
(CL+SSL::INPUT-WAIT #<CL+SSL::SSL-STREAM for 896> 896 NIL) 
(CL+SSL::SSL-CONNECT #.(SB-SYS:INT-SAP #X0440C220)) 
(CL+SSL::SSL-GET-ERROR #.(SB-SYS:INT-SAP #X0440C220) -1) 
(CL+SSL::SSL-GET-FD #.(SB-SYS:INT-SAP #X0440C220)) 
(CL+SSL::INPUT-WAIT #<CL+SSL::SSL-STREAM for 896> 896 NIL) 
(CL+SSL::SSL-CONNECT #.(SB-SYS:INT-SAP #X0440C220)) 
(CL+SSL:SSL-CHECK-VERIFY-P) 
(CL+SSL::HANDLE-EXTERNAL-FORMAT #<CL+SSL::SSL-STREAM for 896> NIL) 
(CL+SSL::SSL-GET-ERROR #.(SB-SYS:INT-SAP #X0440C220) -1) 
(CL+SSL::SSL-GET-FD #.(SB-SYS:INT-SAP #X0440C220)) 
(CL+SSL::INPUT-WAIT #<CL+SSL::SSL-STREAM for 896> 896 NIL) 
(CL+SSL::SSL-FREE #.(SB-SYS:INT-SAP #X0440C220))
)

;;(dex:get "https://api.github.com")
'(

(CL+SSL:ENSURE-INITIALIZED) 
(CL+SSL::SSL-INITIALIZED-P) 
(CL+SSL::INITIALIZE :METHOD CL+SSL::SSL-V23-METHOD :RAND-SEED NIL) 
(CL+SSL::CRYPTO-NUM-LOCKS) 
(CL+SSL::CRYPTO-SET-LOCKING-CALLBACK #.(SB-SYS:INT-SAP #X22100AC0)) 
(CL+SSL::CRYPTO-SET-ID-CALLBACK #.(SB-SYS:INT-SAP #X22100AE8)) 
(CL+SSL::MAKE-BIO-LISP-METHOD) 
(CL+SSL::SSL-LOAD-ERROR-STRINGS) 
(CL+SSL::SSL-LIBRARY-INIT) 
(CL+SSL::SSL-V23-METHOD) 
(CL+SSL::SSL-CTX-NEW #.(SB-SYS:INT-SAP #X6E6423C0)) 
(CL+SSL::SSL-CTX-SET-SESSION-CACHE-MODE #.(SB-SYS:INT-SAP #X04433CA8) 3) 
(CL+SSL::SSL-CTX-CTRL #.(SB-SYS:INT-SAP #X04433CA8) 44 3
                      #.(SB-SYS:INT-SAP #X00000000)) 
(CL+SSL::SSL-CTX-SET-DEFAULT-PASSWD-CB #.(SB-SYS:INT-SAP #X04433CA8)
                                       #.(SB-SYS:INT-SAP #X22100A98)) 
(CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK #.(SB-SYS:INT-SAP #X04433CA8)
                                      #.(SB-SYS:INT-SAP #X22100A70)) 
(CL+SSL:MAKE-CONTEXT :VERIFY-MODE 1 :VERIFY-LOCATION
                     "C:/Users/snmsts/.roswell/lisp/quicklisp/local-projects/fukamachi/dexador/certs/cacert.pem") 
(CL+SSL:ENSURE-INITIALIZED) 
(CL+SSL::SSL-INITIALIZED-P) 
(CL+SSL::SSL-V23-METHOD) 
(CL+SSL::SSL-CTX-NEW #.(SB-SYS:INT-SAP #X6E6423C0)) 
(CL+SSL::SSL-CTX-SET-OPTIONS #.(SB-SYS:INT-SAP #X044386A8) 2181041151) 
(CL+SSL::SSL-CTX-CTRL #.(SB-SYS:INT-SAP #X044386A8) 32 2181041151
                      #.(SB-SYS:INT-SAP #X00000000)) 
(CL+SSL:SSL-CTX-FREE #.(SB-SYS:INT-SAP #X044386A8)) ; Evaluation aborted on #<TYPE-ERROR expected-type: "(SIGNED-BYTE 32)"datum: 2181041151>.

)