First time trying to make a Lisp roustine and new user to AUGI

[lisaleared676139]

Could someone tell me what I need to do to make this simple lisp work? I'm wanting to freeze 5 specific layers and it's not working. The following is what I have:

(defun c:sdclf ()
 ;define the function
;********************************************************
 
 ;Save System Variables
 
 (setq oldsnap (getvar "osmode"))
 ;save snap settings
 
 (setq oldblipmode (getvar "blipmode"))
 ;save blipmode setting
 
;********************************************************
 ;Switch OFF System Variables
 
 (setvar "osmode" 0)
 ;Switch OFF snap
 
 (setvar "blipmode" 0)
 ;Switch OFF Blipmode
 
;********************************************************

  (command "-layer" "freeze")
 (setq layerList ("access" "area" "outline" "clearance" "defpoints"))
;**********************************************************
 
 ;Reset System Variable
 
 (setvar "osmode" oldsnap)
 ;Reset snap
 
 (setvar "blipmode" oldblipmode)
 ;Reset blipmode
 
;*********************************************************
 
 (princ)
 ;clean running
) ;end defun
(princ)
;clean running

[rkmcswain]

The following will freeze the five layers only (I omitted the other stuff)

(defun c:foo ()
  (command ".-layer" "_F" "access,area,outline,clearance,defpoints")
)

Also, please enclose your code in [code] [/code] brackets for easier reading. Thanks.