X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fparms.lisp;h=ab3adf12a7fe31f64e2d8178229d07a450a5c0ec;hb=11b8fcf55c80cb2686fb49663fa4d96f9b152ce4;hp=b6c6306f6705d44de62a50884858c5e804adbb49;hpb=8731c1a7c1a585d190151fa881050fb5e14c0616;p=sbcl.git

diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp
index b6c6306..ab3adf1 100644
--- a/src/compiler/sparc/parms.lisp
+++ b/src/compiler/sparc/parms.lisp
@@ -204,26 +204,24 @@
 
     ;; The C startup code must fill these in.
     *posix-argv*
-    ;;lisp::lisp-environment-list
-    ;;lisp::lisp-command-line-list
     sb!impl::*!initial-fdefn-objects*
 
-    ;; Functions that the C code needs to call
+    ;; functions that the C code needs to call
     maybe-gc
     sb!kernel::internal-error
     sb!di::handle-breakpoint
     sb!di::handle-fun-end-breakpoint
 
-    ;; Free Pointers.
+    ;; free pointers
     *read-only-space-free-pointer*
     *static-space-free-pointer*
     *initial-dynamic-space-free-pointer*
 
-    ;; Things needed for non-local-exit.
+    ;; things needed for non-local exit
     *current-catch-block*
     *current-unwind-protect-block*
 
-    ;; Interrupt Handling
+    ;; interrupt handling
     *free-interrupt-context-index*
     sb!unix::*interrupts-enabled*
     sb!unix::*interrupt-pending*