X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=cf5a506192b56d3efb5ae0d3599e8989db2c947d;hb=5e291412ff095a2016388eee8ac265e12d565119;hp=0d52c975bc4ac97f41c3d706883de01b1d235c6a;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 0d52c97..cf5a506 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -1408,6 +1408,9 @@ register."
 		 ;; optional. Stick the extra var in the result
 		 ;; element representing the keyword or optional,
 		 ;; which is the previous one.
+                 ;;
+                 ;; FIXME: NCONC used for side-effect: the effect is defined,
+                 ;; but this is bad style no matter what.
 		 (nconc (car res)
 			(list (compiled-debug-fun-lambda-list-var
 			       args (incf i) vars))))