
(/VERSIONCHECK 2) 

(DEFUN |SARGND;colinearity;2$Df;1| (|x| |y| $)
  (DIV-DF (EXPT-DF-I (SPADCALL |x| |y| (QREFELT $ 7)) 2)
          (MUL-DF (SPADCALL |x| |x| (QREFELT $ 7))
                  (SPADCALL |y| |y| (QREFELT $ 7))))) 

(DEFUN |SARGND;sipnt;2I$;2| (|a| |b| $)
  (SPADCALL (FLOAT |a| MOST-POSITIVE-DOUBLE-FLOAT)
            (FLOAT |b| MOST-POSITIVE-DOUBLE-FLOAT) (QREFELT $ 9))) 

(DEFUN |SARGND;sipnt;3I$;3| (|a| |b| |c| $)
  (SPADCALL (FLOAT |a| MOST-POSITIVE-DOUBLE-FLOAT)
            (FLOAT |b| MOST-POSITIVE-DOUBLE-FLOAT)
            (FLOAT |c| MOST-POSITIVE-DOUBLE-FLOAT) (QREFELT $ 12))) 

(DEFUN |SARGND;sivec;2I$;4| (|a| |b| $)
  (SPADCALL (FLOAT |a| MOST-POSITIVE-DOUBLE-FLOAT)
            (FLOAT |b| MOST-POSITIVE-DOUBLE-FLOAT) (QREFELT $ 14))) 

(DEFUN |SARGND;sivec;3I$;5| (|a| |b| |c| $)
  (SPADCALL (FLOAT |a| MOST-POSITIVE-DOUBLE-FLOAT)
            (FLOAT |b| MOST-POSITIVE-DOUBLE-FLOAT)
            (FLOAT |c| MOST-POSITIVE-DOUBLE-FLOAT) (QREFELT $ 16))) 

(DEFUN |SARGND;distance;2$Df;6| (|p1| |p2| $)
  (SPADCALL (SPADCALL |p1| |p2| (QREFELT $ 18)) (QREFELT $ 19))) 

(PUT '|SARGND;spnt;2Df$;7| '|SPADreplace| 'CONS) 

(DEFUN |SARGND;spnt;2Df$;7| (|a| |b| $) (CONS |a| |b|)) 

(PUT '|SARGND;spnt;3Df$;8| '|SPADreplace| '(XLAM (|a| |b| |c|) (CONS |a| |b|))) 

(DEFUN |SARGND;spnt;3Df$;8| (|a| |b| |c| $) (CONS |a| |b|)) 

(PUT '|SARGND;svec;2Df$;9| '|SPADreplace| 'CONS) 

(DEFUN |SARGND;svec;2Df$;9| (|a| |b| $) (CONS |a| |b|)) 

(PUT '|SARGND;svec;3Df$;10| '|SPADreplace| '(XLAM (|a| |b| |c|) (CONS |a| |b|))) 

(DEFUN |SARGND;svec;3Df$;10| (|a| |b| |c| $) (CONS |a| |b|)) 

(PUT '|SARGND;dimension;$Pi;11| '|SPADreplace| '(XLAM (|p|) 2)) 

(DEFUN |SARGND;dimension;$Pi;11| (|p| $) 2) 

(DEFUN |SARGND;nan?| (|x| $) (COND ((EQL-DF |x| |x|) 'NIL) ('T 'T))) 

(DEFUN |SARGND;Pnan?;$B;13| (|p| $)
  (COND ((OR (|SARGND;nan?| (QCAR |p|) $) (|SARGND;nan?| (QCDR |p|) $)) 'T)
        ('T 'NIL))) 

(DEFUN |SARGND;unitVector;2$;14| (|p| $)
  (PROG (|factor|)
    (RETURN
     (SEQ
      (LETT |factor|
            (SPADCALL
             (ADD-DF (MUL-DF (QCAR |p|) (QCAR |p|))
                     (MUL-DF (QCDR |p|) (QCDR |p|)))
             (QREFELT $ 19))
            |SARGND;unitVector;2$;14|)
      (EXIT
       (CONS (DIV-DF (QCAR |p|) |factor|) (DIV-DF (QCDR |p|) |factor|))))))) 

(DEFUN |SARGND;distanceSquared;2$Df;15| (|p1| |p2| $)
  (ADD-DF (EXPT-DF-I (SUB-DF (QCAR |p1|) (QCAR |p2|)) 2)
          (EXPT-DF-I (SUB-DF (QCDR |p1|) (QCDR |p2|)) 2))) 

(DEFUN |SARGND;parallel;2$Df;16| (|x| |y| $)
  (ADD-DF (MUL-DF (QCAR |x|) (QCAR |y|)) (MUL-DF (QCDR |x|) (QCDR |y|)))) 

(PUT '|SARGND;perpendicular;3$;17| '|SPADreplace|
     '(XLAM (|x| |y|) (CONS 0.0 1.0))) 

(DEFUN |SARGND;perpendicular;3$;17| (|x| |y| $) (CONS 0.0 1.0)) 

(DEFUN |SARGND;*;Df2$;18| (|s| |x| $)
  (CONS (MUL-DF (QCAR |x|) |s|) (MUL-DF (QCDR |x|) |s|))) 

(DEFUN |SARGND;+;3$;19| (|x| |y| $)
  (CONS (ADD-DF (QCAR |x|) (QCAR |y|)) (ADD-DF (QCDR |x|) (QCDR |y|)))) 

(DEFUN |SARGND;-;3$;20| (|x| |y| $)
  (CONS (SUB-DF (QCAR |x|) (QCAR |y|)) (SUB-DF (QCDR |x|) (QCDR |y|)))) 

(DEFUN |SARGND;inBounds?;3$B;21| (|pt| |mns| |mxs| $)
  (COND
   ((OR (LESS-DF (QCAR |pt|) (QCAR |mns|))
        (OR (LESS-DF (QCAR |mxs|) (QCAR |pt|))
            (OR (LESS-DF (QCDR |pt|) (QCDR |mns|))
                (LESS-DF (QCDR |mxs|) (QCDR |pt|)))))
    'NIL)
   ('T 'T))) 

(PUT '|SARGND;screenCoordX;$Df;22| '|SPADreplace| 'QCAR) 

(DEFUN |SARGND;screenCoordX;$Df;22| (|pt| $) (QCAR |pt|)) 

(PUT '|SARGND;screenCoordY;$Df;23| '|SPADreplace| 'QCDR) 

(DEFUN |SARGND;screenCoordY;$Df;23| (|pt| $) (QCDR |pt|)) 

(PUT '|SARGND;screenCoordZ;$Df;24| '|SPADreplace| '(XLAM (|pt|) 0.0)) 

(DEFUN |SARGND;screenCoordZ;$Df;24| (|pt| $) 0.0) 

(DEFUN |SARGND;screenCoords;$L;25| (|pt| $) (LIST (QCAR |pt|) (QCDR |pt|))) 

(DEFUN |SARGND;extendedCoords;$L;26| (|pt| $) (LIST (QCAR |pt|) (QCDR |pt|))) 

(DEFUN |SARGND;coerce;$C;27| (|me| $)
  (SPADCALL (QCAR |me|) (QCDR |me|) (QREFELT $ 39))) 

(DEFUN |SARGND;coerce;C$;28| (|cmpx| $)
  (CONS (SPADCALL |cmpx| (QREFELT $ 41)) (SPADCALL |cmpx| (QREFELT $ 42)))) 

(PUT '|SARGND;hash;$Si;29| '|SPADreplace| '(XLAM (|s|) 0)) 

(DEFUN |SARGND;hash;$Si;29| (|s| $) 0) 

(PUT '|SARGND;latex;$S;30| '|SPADreplace|
     '(XLAM (|s|) "\\mbox{\\bf Unimplemented}")) 

(DEFUN |SARGND;latex;$S;30| (|s| $) "\\mbox{\\bf Unimplemented}") 

(DEFUN |SARGND;=;2$B;31| (|x| |y| $)
  (PROG (#1=#:G1855)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((NULL (EQL-DF (QCAR |x|) (QCAR |y|)))
          (PROGN (LETT #1# 'NIL . #2=(|SARGND;=;2$B;31|)) (GO #1#))))
        (COND
         ((NULL (EQL-DF (QCDR |x|) (QCDR |y|)))
          (PROGN (LETT #1# 'NIL . #2#) (GO #1#))))
        (EXIT 'T)))
      #1# (EXIT #1#))))) 

(DEFUN |SARGND;~=;2$B;32| (|x| |y| $)
  (COND ((SPADCALL |x| |y| (QREFELT $ 48)) 'NIL) ('T 'T))) 

(DEFUN |SARGND;coerce;$Of;33| (|pt| $)
  (SPADCALL
   (LIST (SPADCALL (QCAR |pt|) (QREFELT $ 51))
         (SPADCALL (QCDR |pt|) (QREFELT $ 51)))
   (QREFELT $ 53))) 

(DEFUN |SArgand| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G1859)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|SArgand|) . #3=(|SArgand|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|SArgand|
                         (LIST (CONS NIL (CONS 1 (|SArgand;|))))))
                (LETT #2# T . #3#))
            (COND ((NOT #2#) (HREM |$ConstructorCache| '|SArgand|))))))))))) 

(DEFUN |SArgand;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|SArgand|) . #1=(|SArgand|))
      (LETT $ (GETREFV 55) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|SArgand| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (SETF |pv$| (QREFELT $ 3))
      (QSETREFV $ 21
                (|Record| (|:| |r| (|DoubleFloat|)) (|:| |i| (|DoubleFloat|))))
      $)))) 

(MAKEPROP '|SArgand| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL (|Type|) (|DoubleFloat|)
              |SARGND;parallel;2$Df;16| |SARGND;colinearity;2$Df;1|
              |SARGND;spnt;2Df$;7| (|Integer|) |SARGND;sipnt;2I$;2|
              |SARGND;spnt;3Df$;8| |SARGND;sipnt;3I$;3| |SARGND;svec;2Df$;9|
              |SARGND;sivec;2I$;4| |SARGND;svec;3Df$;10| |SARGND;sivec;3I$;5|
              |SARGND;distanceSquared;2$Df;15| (0 . |sqrt|)
              |SARGND;distance;2$Df;6| '|Rep| (|PositiveInteger|)
              |SARGND;dimension;$Pi;11| (|Boolean|) |SARGND;Pnan?;$B;13|
              |SARGND;unitVector;2$;14| |SARGND;perpendicular;3$;17|
              |SARGND;*;Df2$;18| |SARGND;+;3$;19| |SARGND;-;3$;20|
              |SARGND;inBounds?;3$B;21| |SARGND;screenCoordX;$Df;22|
              |SARGND;screenCoordY;$Df;23| |SARGND;screenCoordZ;$Df;24|
              (|List| 6) |SARGND;screenCoords;$L;25|
              |SARGND;extendedCoords;$L;26| (|Complex| 6) (5 . |complex|)
              |SARGND;coerce;$C;27| (11 . |real|) (16 . |imag|)
              |SARGND;coerce;C$;28| (|SingleInteger|) |SARGND;hash;$Si;29|
              (|String|) |SARGND;latex;$S;30| |SARGND;=;2$B;31|
              |SARGND;~=;2$B;32| (|OutputForm|) (21 . |coerce|) (|List| $)
              (26 . |paren|) |SARGND;coerce;$Of;33|)
           '#(~= 31 |unitVector| 37 |svec| 42 |spnt| 55 |sivec| 68 |sipnt| 81
              |screenCoords| 94 |screenCoordZ| 99 |screenCoordY| 104
              |screenCoordX| 109 |perpendicular| 114 |parallel| 120 |latex| 126
              |inBounds?| 131 |hash| 138 |extendedCoords| 143 |distanceSquared|
              148 |distance| 154 |dimension| 160 |colinearity| 165 |coerce| 171
              |Pnan?| 186 = 191 - 197 + 203 * 209)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0 0 0 0))
                 (CONS '#(NIL |SetCategory&| |BasicType&| NIL)
                       (CONS
                        '#((|SPointCategory|) (|SetCategory|) (|BasicType|)
                           (|CoercibleTo| 50))
                        (|makeByteWordVec2| 54
                                            '(1 6 0 0 19 2 38 0 6 6 39 1 38 6 0
                                              41 1 38 6 0 42 1 6 50 0 51 1 50 0
                                              52 53 2 0 24 0 0 49 1 0 0 0 26 3
                                              0 0 6 6 6 16 2 0 0 6 6 14 3 0 0 6
                                              6 6 12 2 0 0 6 6 9 3 0 0 10 10 10
                                              17 2 0 0 10 10 15 3 0 0 10 10 10
                                              13 2 0 0 10 10 11 1 0 35 0 36 1 0
                                              6 0 34 1 0 6 0 33 1 0 6 0 32 2 0
                                              0 0 0 27 2 0 6 0 0 7 1 0 46 0 47
                                              3 0 24 0 0 0 31 1 0 44 0 45 1 0
                                              35 0 37 2 0 6 0 0 18 2 0 6 0 0 20
                                              1 0 22 0 23 2 0 6 0 0 8 1 0 38 0
                                              40 1 0 0 38 43 1 0 50 0 54 1 0 24
                                              0 25 2 0 24 0 0 48 2 0 0 0 0 30 2
                                              0 0 0 0 29 2 0 0 6 0 28)))))
           '|lookupComplete|)) 

(MAKEPROP '|SArgand| 'NILADIC T) 
