[cello-cvs] CVS hello-cffi

[ktilton]

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