From cc7b3da48f78a00cf62737f447ef9fe05a79bc37 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 14 Aug 2006 04:26:22 +0000 Subject: [PATCH] r11022: revert incorrect stuff from clisp testing --- src/objects.lisp | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/src/objects.lisp b/src/objects.lisp index 1c4983c..67c9bcb 100644 --- a/src/objects.lisp +++ b/src/objects.lisp @@ -249,20 +249,12 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." #+(or macosx darwinppc-target) (concatenate 'string "_" name) #-(or macosx darwinppc-target) name) -;; unchanged from main primitives.lisp -(defun make-lisp-name (name) - (let ((converted (substitute #\- #\_ name))) - (intern - #+uffi-case-sensitive converted - #+(and (not uffi-lowercase-reader) (not uffi-case-sensitive)) (string-upcase converted) - #+(and uffi-lowercase-reader (not uffi-case-sensitive)) (string-downcase converted)))) - (defmacro def-foreign-var (names type module) #-lispworks (declare (ignore module)) (let ((foreign-name (if (atom names) names (first names))) (lisp-name (if (atom names) (make-lisp-name names) (second names))) #-allegro - (var-type (convert-uffi-type type :type))) + (var-type (convert-from-uffi-type type :type))) #+(or cmu scl) `(alien:def-alien-variable (,foreign-name ,lisp-name) ,var-type) #+sbcl -- 2.34.1