[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv27546

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (frob-allegro-field-def): Add missing type to
ecase for inspector.  Patch from Andrew Myers.

--- /project/slime/cvsroot/slime/ChangeLog	2011/10/13 09:24:02	1.2219
+++ /project/slime/cvsroot/slime/ChangeLog	2011/10/19 09:47:57	1.2220
@@ -1,3 +1,8 @@
+2011-10-19  Andrew Myers <asm198 at gmail.com>
+
+	* swank-allegro.lisp (frob-allegro-field-def): Add missing type to
+	ecase for inspector.
+
 2011-10-13  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (all-completions): Remove mixed case syms e.g |Foo|.
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2011/08/17 15:40:47	1.144
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2011/10/19 09:47:57	1.145
@@ -720,8 +720,8 @@
   (with-struct (inspect::field-def- name type access) def
     (ecase type
       ((:unsigned-word :unsigned-byte :unsigned-natural
-                       :unsigned-long :unsigned-half-long 
-                       :unsigned-3byte)
+                       :unsigned-long :unsigned-half-long
+                       :unsigned-3byte :unsigned-long32)
        (label-value-line name (inspect::component-ref-v object access type)))
       ((:lisp :value :func)
        (label-value-line name (inspect::component-ref object access)))