;; | ----------------------------------------------------------------------------
;; | LA_IsLocked
;; | ----------------------------------------------------------------------------
;; | Function : Checks if the specified layer is locked or unlocked.
;; | Argument : 'la' - Layer Name
;; | Returns  : T or nil depending on whether the layer is locked or not
;; | Updated  : July 10, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_IsLocked(la / tbl Locked )

(setq Locked T)
(if (setq tbl (tblsearch "LAYER" la))
(progn
	(if (not (zerop (logand (LI_item 70 tbl) 4)))
		(setq Locked T)
		(setq Locked nil)
	)
))
Locked
)