Unbalanced Parentheses in Comment Blocks (a'la #|...|#)

[basham@aio.jsc.nasa.gov (Bryan Basham)]

I have an intermitent problem with Zmacs.  On occasion I use open and close
parentheses within my Lisp file comment blocks (see the below example).
However, Zmacs flags these parens as unbalanced; therefore, checking for
unbalanced parens during saving is useless.  Does anyone know how to turn
the paren checker within comment blocks.  [I originally thought that single-bar
comment blocks, #| ... |#, did not check paren balance, but that double-bar
comment blocks, #|| ... ||#, was to be used if paren checking were desired.

#|---------------------------------------------------------------------------------------------
unit-icosahedron &key tolerance							     [Function]
Argument List: 
Keyword Arguments:
  tolerance type: Float
	    purpose: this determines the tolerance in our iterations
Purpose: 
Algorithm:
  1) guess L  [1>L>>0]
  2) "determine L1"
     2.1) guess L1  [L>L1>>0]
     2.2) let Pentagon = {N=0..4 | E(N) = L1cos(2Npi/5) + L1sin(2Npi/5)i}
     2.3) if distance(E(0),E(1))~=L,
	     then stop returning [L1, L2=sqrt(L^2-L1^2)];
	     otherwise, L1.new is L1+(D-L)/2 (?) and go to step 2.2
  3) let Pentagon(blue) = {N=0..4 | Eb(N) = L2 + L1cos(2Npi/5)i + L1sin(2Npi/5)j}
	 Pentagon(red)  = {N=0..4 | Er(N) = -L2 - L1cos(2Npi/5)i + L1sin(2Npi/5)j}
  4) if distance(Eb(0),Er(2))~=L,
	then stop returning [L, Icoshedron object];
	otherwise, L.new is L+(D-L)/2 (?), and go to step 2
Implementation:
  The implementation of the above algorithm in Lisp is quite easily done with recursion.
  Step #2 and Steps #2-3 can be implemented as self-recursing functions; called determine-L1
  and determine-L, respectively.
|#;;;;
(defun unit-icosahedron (&key (tolerance 0.001))
   ...)

Any clues?	Bryan

/-------------------------------------------------/
/  Bryan D. Basham				  /
/  NASA/JSC  Mail Stop: ER22,  Houston TX  77058  /
/  (713) 483-2065				  /
/  Basham@AIO.JSC.NASA.GOV			  /
/-------------------------------------------------/