perm filename STRGEN.LSP[4,LMM] blob sn#040777 filedate 1973-05-06 generic text, type T, neo UTF8

(DEFPROP STRGENFNS
 (STRGENFNS STARTUP)
VALUE)

(DEFPROP STARTUP
 (LAMBDA NIL
  (PROGN (TURNOFF (FIXFN (QUOTE MOLECULES) (QUOTE L) (QUOTE N) (QUOTE (NIL))))
	 (TURNON
	  (LIST	(FIXFN (QUOTE ATTACHFVS) (QUOTE L) 2. (QUOTE (NIL)))
		(FIXFN (QUOTE ATTACHBIVS&LOOPS) (QUOTE L) 3. (QUOTE (NIL)))
		(FIXFN (QUOTE ATTACHBIVALENTS) (QUOTE L) 2. (QUOTE (NIL)))
		(FIXFN (QUOTE STRUCTURESWITHATOMS) (QUOTE L) 2. (QUOTE (NIL)))
		(FIXFN (QUOTE PERMRADS) (QUOTE L) 1. (QUOTE ((STRUCINCL CLRADS))))
		(FIXFN (QUOTE GENMOL) (QUOTE L) (QUOTE N) (QUOTE ((STRUCINCL CL))))))
	 (MAPCAR (FUNCTION (LAMBDA (X) (TURNON (FIXFN X (QUOTE L) (QUOTE N) (LIST NIL)))))
		 (QUOTE (RINGS RINGSKELETONS NOFV-RINGS CATALOG)))))
EXPR)