Update of /project/cello/cvsroot/hello-cffi In directory clnet:/tmp/cvs-serv28528 Modified Files: callbacks.lisp hello-cffi.lpr Log Message: --- /project/cello/cvsroot/hello-cffi/callbacks.lisp 2006/05/17 04:29:42 1.1 +++ /project/cello/cvsroot/hello-cffi/callbacks.lisp 2006/06/29 09:55:58 1.2 @@ -23,18 +23,6 @@ (in-package :ffx) - -#+precffi -(defun ff-register-callable (callback-name) - #+allegro - (ff:register-foreign-callable callback-name) - #+lispworks - (let ((cb (progn ;; fli:pointer-address - (fli:make-pointer :symbol-name (symbol-name callback-name) ;; leak? - :functionp t)))) - (print (list :ff-register-callable-returns cb)) - cb)) - (defun ff-register-callable (callback-name) (let ((known-callback (cffi:get-callback callback-name))) (assert known-callback) --- /project/cello/cvsroot/hello-cffi/hello-cffi.lpr 2006/05/17 04:29:42 1.1 +++ /project/cello/cvsroot/hello-cffi/hello-cffi.lpr 2006/06/29 09:55:59 1.2 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (May 5, 2006 15:39)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (May 11, 2006 6:29)"; cg: "1.81"; -*- (in-package :cg-user) @@ -11,7 +11,7 @@ (make-instance 'module :name "arrays.lisp") (make-instance 'module :name "callbacks.lisp")) :projects (list (make-instance 'project-module :name - "C:\\0devtools\\cffi\\cffi")) + "C:\\1-devtools\\cffi\\cffi")) :libraries nil :distributed-files nil :internally-loaded-files nil