
(/VERSIONCHECK 2) 

(DEFPARAMETER |SPointCategory;AL| 'NIL) 

(DEFUN |SPointCategory| ()
  (LET (#:G13797)
    (COND (|SPointCategory;AL|)
          (T (SETQ |SPointCategory;AL| (|SPointCategory;|)))))) 

(DEFUN |SPointCategory;| ()
  (PROG (#1=#:G13795)
    (RETURN
     (PROG1
         (LETT #1#
               (|Join| (|SetCategory|)
                       (|mkCategory| '|domain|
                                     '(((|spnt|
                                         ($ (|DoubleFloat|) (|DoubleFloat|)))
                                        T)
                                       ((|sipnt| ($ (|Integer|) (|Integer|)))
                                        T)
                                       ((|spnt|
                                         ($ (|DoubleFloat|) (|DoubleFloat|)
                                          (|DoubleFloat|)))
                                        T)
                                       ((|sipnt|
                                         ($ (|Integer|) (|Integer|)
                                          (|Integer|)))
                                        T)
                                       ((|svec|
                                         ($ (|DoubleFloat|) (|DoubleFloat|)))
                                        T)
                                       ((|sivec| ($ (|Integer|) (|Integer|)))
                                        T)
                                       ((|svec|
                                         ($ (|DoubleFloat|) (|DoubleFloat|)
                                          (|DoubleFloat|)))
                                        T)
                                       ((|sivec|
                                         ($ (|Integer|) (|Integer|)
                                          (|Integer|)))
                                        T)
                                       ((|dimension| ((|PositiveInteger|) $))
                                        T)
                                       ((|Pnan?| ((|Boolean|) $)) T)
                                       ((|unitVector| ($ $)) T)
                                       ((|distanceSquared|
                                         ((|DoubleFloat|) $ $))
                                        T)
                                       ((|distance| ((|DoubleFloat|) $ $)) T)
                                       ((|parallel| ((|DoubleFloat|) $ $)) T)
                                       ((|colinearity| ((|DoubleFloat|) $ $))
                                        T)
                                       ((|perpendicular| ($ $ $)) T)
                                       ((+ ($ $ $)) T) ((- ($ $ $)) T)
                                       ((* ($ (|DoubleFloat|) $)) T)
                                       ((|inBounds?| ((|Boolean|) $ $ $)) T)
                                       ((|screenCoordX| ((|DoubleFloat|) $)) T)
                                       ((|screenCoordY| ((|DoubleFloat|) $)) T)
                                       ((|screenCoordZ| ((|DoubleFloat|) $)) T)
                                       ((|screenCoords|
                                         ((|List| (|DoubleFloat|)) $))
                                        T)
                                       ((|extendedCoords|
                                         ((|List| (|DoubleFloat|)) $))
                                        T)
                                       ((|coerce| ((|OutputForm|) $)) T))
                                     NIL
                                     '((|OutputForm|) (|List| (|DoubleFloat|))
                                       (|DoubleFloat|) (|Boolean|)
                                       (|PositiveInteger|) (|Integer|))
                                     NIL))
               |SPointCategory|)
       (SETELT #1# 0 '(|SPointCategory|)))))) 

(MAKEPROP '|SPointCategory| 'NILADIC T) 
