r3530: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 36e8077cde5197f31d2347bc1289e89cd5801c94..5b1a8ad67af09dc32750bfa94a65c83e870362e8 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-uffi (1.1.8-1) unstable; urgency=low
+
+  * Reverse broken bug "fixes" 
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 28 Nov 2002 11:47:26 -0700
+
 cl-uffi (1.1.7.1-1) unstable; urgency=low
 
   * Another allegro bug (Thanks Matthew Danish)

diff --git a/examples/gethostname.lisp b/examples/gethostname.lisp
index 04fa7973a89d7184f1cde852fd790625f7b6f4d3..a6e1b0e1afe7c33686d9de534c52f5d85fdabaa5 100644 (file)
--- a/examples/gethostname.lisp
+++ b/examples/gethostname.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: gethostname.lisp,v 1.2 2002/11/25 19:04:57 kevin Exp $
+;;;; $Id: gethostname.lisp,v 1.3 2002/12/02 13:21:43 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -34,7 +34,8 @@
                     (uffi:convert-from-foreign-string name))))
     (uffi:free-foreign-object name)
     (unless (zerop result-code)
-      (error "gethostname() failed."))))
+      (error "gethostname() failed."))
+    hostname))
 
 (defun gethostname2 ()
   "Returns the hostname"

diff --git a/src/aggregates.lisp b/src/aggregates.lisp
index e22f22b53d875839651901c388da77c0df421e20..5080222aa0862c7b92bf708eca85370378746018 100644 (file)
--- a/src/aggregates.lisp
+++ b/src/aggregates.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: aggregates.lisp,v 1.5 2002/11/23 19:07:11 kevin Exp $
+;;;; $Id: aggregates.lisp,v 1.6 2002/12/02 13:21:43 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -163,7 +163,7 @@ of the enum-name name, separator-string, and field-name"
   #+(or cmu scl)  `(alien:deref ,obj ,i)
   #+sbcl  `(sb-alien:deref ,obj ,i)
   #+lispworks `(fli:dereference ,obj :index ,i)
-  #+allegro `(ff:fslot-value-typed (quote (convert-from-uffi-type ,type :type)) :c ,obj ,i)
+  #+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :type)) :c ,obj ,i)
   #+mcl
   (let* ((array-type (array-type type))
          (local-type (convert-from-uffi-type array-type :allocation))

diff --git a/src/objects.lisp b/src/objects.lisp
index 6c7a745476fea1939bb2e1b7d957d44980a57438..8c6d2aca11f1c936b3d970438aed7057ef3561d3 100644 (file)
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: objects.lisp,v 1.6 2002/11/23 18:01:57 kevin Exp $
+;;;; $Id: objects.lisp,v 1.7 2002/12/02 13:21:43 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -108,8 +108,8 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated."
   #+(or cmu scl)  `(alien:deref ,ptr)
   #+sbcl  `(sb-alien:deref ,ptr)
   #+lispworks `(fli:dereference ,ptr)
-  #+allegro `(ff:fslot-value-typed (convert-from-uffi-type ,type :deref) :c ,ptr)
-  #+mcl `(ccl:pref ,ptr (convert-from-uffi-type ,type :deref))
+  #+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :deref)) :c ,ptr)
+  #+mcl `(ccl:pref ,ptr ,(convert-from-uffi-type type :deref))
   )
 
 #+mcl

diff --git a/tests/gethostname.lisp b/tests/gethostname.lisp
index 04fa7973a89d7184f1cde852fd790625f7b6f4d3..a6e1b0e1afe7c33686d9de534c52f5d85fdabaa5 100644 (file)
--- a/tests/gethostname.lisp
+++ b/tests/gethostname.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: gethostname.lisp,v 1.2 2002/11/25 19:04:57 kevin Exp $
+;;;; $Id: gethostname.lisp,v 1.3 2002/12/02 13:21:43 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -34,7 +34,8 @@
                     (uffi:convert-from-foreign-string name))))
     (uffi:free-foreign-object name)
     (unless (zerop result-code)
-      (error "gethostname() failed."))))
+      (error "gethostname() failed."))
+    hostname))
 
 (defun gethostname2 ()
   "Returns the hostname"