Fix typo in VERSIONDEFS (#1990)

Fix typo

lispusers/VERSIONDEFS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Dec-2024 15:07:45" {WMEDLEY}<lispusers>VERSIONDEFS.;11
 6270   
+
(FILECREATED "27-Jan-2025 08:49:34" {WMEDLEY}<lispusers>VERSIONDEFS.;12
 5880   
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS VERSIONDEFSCOMS)
+      :CHANGES-TO (FNS GETVINFO)
 
-      :PREVIOUS-DATE " 6-Dec-2024 22:12:48" {WMEDLEY}<lispusers>VERSIONDEFS.;10)
+      :PREVIOUS-DATE "12-Dec-2024 15:07:45" {WMEDLEY}<lispusers>VERSIONDEFS.;11)
 
 
 (PRETTYCOMPRINT VERSIONDEFSCOMS)
@@ -14,7 +14,7 @@
 (RPAQQ VERSIONDEFSCOMS
 [(FNS FINDFILEVERSION GETVINFO VERSIONP)
                         (FNS EDV DFV)
                         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
-                               (ADDVARS (NLAMA DVV DFV EDV)
+                               (ADDVARS (NLAMA DFV EDV)
                                       (NLAML)
                                       (LAMA])
 (DEFINEQ
@@ -45,17 +45,18 @@
              then
 (ERROR (CONCAT "Version " VERSION " of " FILE " not found"])
 
 (GETVINFO

-  [LAMBDA (NAME TYPE FILE VERSION DIRLIST)
                   (* ; "Edited  6-Dec-2024 21:37 by rmk")


+  [LAMBDA (NAME TYPE FILE VERSION DIRLIST)
                   (* ; "Edited 27-Jan-2025 08:49 by rmk")


+                                                             (* ; "Edited  6-Dec-2024 21:37 by rmk")


                                                              (* ; "Edited  1-Dec-2024 23:50 by rmk")

 
     (* ;; "Gets the TYPE definition of NAME from version VERSION of FILE, returns the definition after storing it under an annotated name that the filepkg doesn't see.  ")

 
-    (CL:WHEN (VERSIONP
 TYPE)
-        (SETQ VERSION TYPE)
-        (SETQ TYPE NIL))
-    (CL:WHEN (VERSIONP
 FILE)
-        (SETQ VERSION FILE)
-        (SETQ FILE NIL))
+    (if
 (VERSIONP
 TYPE)
+        then
 (SETQ VERSION TYPE)
+             (SETQ TYPE NIL)
+      elseif
 (VERSIONP
 FILE)
+        then
 (SETQ VERSION FILE)
+             (SETQ FILE NIL))
     (CL:UNLESS [OR FILE (SETQ FILE (CAR (WHEREIS NAME TYPE T]
         (ERROR (CONCAT "File for " NAME " not found")))
     (CL:UNLESS VERSION
@@ -63,7 +64,7 @@
     (LET ((VFILE (FINDFILEVERSION
 FILE VERSION DIRLIST))
           (CONNECTED (DIRECTORYNAME T T))
           DEF VNAME HOST DIR)                                (* ; "Don't include the whole path if it's the connected one. Perhaps we should create/return both a short name and a long name")

-         (SETQ DEF (GETDEF NAME TYPE FILE))
+         (SETQ DEF (GETDEF NAME TYPE VFILE))
          (SETQ HOST (FILENAMEFIELD VFILE 'HOST))
          (SETQ DIR (FILENAMEFIELD VFILE 'DIRECTORY))
          (CL:WHEN (STRING.EQUAL HOST (FILENAMEFIELD CONNECTED 'HOST))
@@ -130,22 +131,6 @@
 )
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
-(ADDTOVAR NLAMA
 DVV DFV EDV)
-
-(ADDTOVAR NLAML
 )
-
-(ADDTOVAR LAMA
 )
-)
-(PRETTYCOMPRINT VERSIONDEFSCOMS)
-
-(RPAQQ VERSIONDEFSCOMS
 [(FNS FINDFILEVERSION GETVINFO VERSIONP)
-                        (FNS EDV DFV)
-                        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
-                               (ADDVARS (NLAMA DFV EDV)
-                                      (NLAML)
-                                      (LAMA])
-(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
-
 (ADDTOVAR NLAMA
 DFV EDV)
 
 (ADDTOVAR NLAML
 )
@@ -153,6 +138,6 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (683 4442 (FINDFILEVERSION 693 . 2140) (GETVINFO 2142 . 4125) (VERSIONP 4127 . 4440)) (
-4443 5589 (EDV 4453 . 5153) (DFV 5155 . 5587)))))
+  (FILEMAP (NIL (671 4570 (FINDFILEVERSION 681 . 2128) (GETVINFO 2130 . 4253) (VERSIONP 4255 . 4568)) (
+4571 5717 (EDV 4581 . 5281) (DFV 5283 . 5715)))))
 STOP