Function printer adjustment

Author: mmontone

src/print.lisp

@@ -333,11 +333,10 @@
 
 ;; function object printer
 (defun function-object-printer (form stream)
-  (let ((res))
-    (setq res (concat "#<FUNCTION "
-		      (or (jscl::oget form "fname")
-			  "")
-		      " "
+  (let ((res)
+	(fname (jscl::oget form "fname")))
+    (setq res (concat (if fname "#<FUNCTION " "#<LAMBDA ")
+		      (or fname "")
 		      (or (and (jscl::function-lambda-list form)
 			       (princ-to-string (jscl::function-lambda-list form))) "()")
 		      ">"))