Topic: How do you get this program to work?

[POCKETS]

How do you get the attached program to work?  I am use to seeing a "defun C:" when I load a lisp program and this one doesn't have it. Why?  I am using R2002.
Many thanks in advance.
Pockets

Code: [Select]

;;; CADALYST 07/08  www.cadalyst.com/code
;;; Tip 2301: QS.lsp    Quadrant Snap (c) 2008 John Loudermilk

;QS.LSP
;Snap to 45 degree angles on circle.

;=================================================================================
(defun QS (/ NO_ENTITY SS ELIST PT0 CP R A PT)
<code removed: see link to get code>

;Return existing error handler
(setq *error* ExistError)

(princ))
;End QS.LSP

[CAB]

Type (QS) at the command line OR

Change this line

Code: [Select]

(defun QS (/ NO_ENTITY SS ELIST PT0 CP R A PT)to this:

Code: [Select]

(defun c:QS (/ NO_ENTITY SS ELIST PT0 CP R A PT)and type QS at the command line.

[POCKETS]

Thanks CAB. That worked.