- (cons "Name" (symbol-name object))
- (cons "Package" (symbol-package object))
- (cons "Value" (if (boundp object)
- (symbol-value object)
- *ginspect-unbound-object-marker*))
- (cons "Function" (if (fboundp object)
- (symbol-function object)
- *ginspect-unbound-object-marker*))
- (cons "Plist" (symbol-plist object))))
-
-#+cmu
+ (list
+ (cons "Name" (symbol-name object))
+ (cons "Package" (symbol-package object))
+ (cons "Value" (if (boundp object)
+ (symbol-value object)
+ *ginspect-unbound-object-marker*))
+ (cons "Function" (if (fboundp object)
+ (symbol-function object)
+ *ginspect-unbound-object-marker*))
+ (cons "Plist" (symbol-plist object)))))
+