[cmucl-cvs] CMUCL commit: src/code (alieneval.lisp)

Raymond Toy rtoy at common-lisp.net
Sun Dec 5 15:55:53 UTC 2010


    Date: Sunday, December 5, 2010 @ 10:55:53
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: alieneval.lisp

No functional changes.  Just update examples.

o Fix typo in callback examples.
o Add package qualifiers so the examples can be used in CL-USER. 


----------------+
 alieneval.lisp |   29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)


Index: src/code/alieneval.lisp
diff -u src/code/alieneval.lisp:1.69 src/code/alieneval.lisp:1.70
--- src/code/alieneval.lisp:1.69	Tue Apr 20 13:57:43 2010
+++ src/code/alieneval.lisp	Sun Dec  5 10:55:53 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/alieneval.lisp,v 1.69 2010-04-20 17:57:43 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/alieneval.lisp,v 1.70 2010-12-05 15:55:53 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2120,25 +2120,26 @@
 #||
 ;;; Example 1:
 
-(defcallback foo (int (arg1 int) (arg2 int))
+(alien:def-callback foo (c-call:int (arg1 c-call:int) (arg2 c-call:int))
   (format t "~&foo: ~S, ~S~%" arg1 arg2)
   (+ arg1 arg2))
 
-(alien-funcall (sap-alien (callback foo) (function int int int))
+(alien:alien-funcall (alien:sap-alien (alien:callback foo)
+				      (function c-call:int c-call:int c-call:int))
 	       555 444444)
 
 ;;; Example 2:
 
-(def-alien-routine qsort void
+(alien:def-alien-routine qsort c-call:void
   (base (* t))
-  (nmemb int)
-  (size int)
-  (compar (* (function int (* t) (* t)))))
-
-(defcallback my< (int (arg1 (* double))
-		      (arg2 (* double)))
-  (let ((a1 (deref arg1))
-	(a2 (deref arg2)))
+  (nmemb c-call:int)
+  (size c-call:int)
+  (compar (* (function c-call:int (* t) (* t)))))
+
+(alien:def-callback my< (c-call:int (arg1 (* c-call:double))
+		      (arg2 (* c-call:double)))
+  (let ((a1 (alien:deref arg1))
+	(a2 (alien:deref arg2)))
     (cond ((= a1 a2)  0)
 	  ((< a1 a2) -1)
 	  (t         +1))))
@@ -2149,8 +2150,8 @@
   (print a)
   (qsort (sys:vector-sap a)
 	 (length a)
-	 (alien-size double :bytes)
-	 (callback my<))
+	 (alien:alien-size c-call:double :bytes)
+	 (alien:callback my<))
   (print a))
 
 ||#




More information about the cmucl-cvs mailing list