(FILECREATED " 3-Jul-83 16:13:39" <NOVAK>GEVTYPE.LSP.3 1802   

      previous date: "25-FEB-83 17:39:59" <NOVAK>GEVTYPE.LSP.2)


(PRETTYCOMPRINT GEVTYPECOMS)

(RPAQQ GEVTYPECOMS ((FNS INTTOHEX INTTOINIT INTTOOCTAL INTTOOCTAL3)
		    (P (INTTOINIT))))
(DEFINEQ

(INTTOHEX
  [GLAMBDA (N:INTEGER)                          (* GSN "25-FEB-83 17:16"
)
    (RESULT STRING)
    (PROG ((NBITS N:WORDSIZE)
	   LST)
          (WHILE NBITS>0
	     DO [LST+←(CAR (NTH (QUOTE ("0" "1" "2" "3" "4" "5" "6" "7" 
					    "8"
					    "9" "A" "B" "C" "D" "E" "F")
				       )
				(ADD1 (LOGAND N 15]
		(N←(LRSH N 4))
		NBITS←-4)
          (RETURN (APPLY (FUNCTION CONCAT)
			 LST])

(INTTOINIT
  [LAMBDA NIL
    (GLADDTOOBJECTS [STRING PROP
			    ((CHARS UNPACK RESULT (LISTOF ATOM))
			     (CHARCODES ((FOR X IN CHARCODENUMS
					    COLLECT X:OCTAL3)))
			     (CHARCODENUMS CHCON RESULT (LISTOF INTEGER]
		    (INTEGER PROP ((WORDSIZE (32))
			      (OCTAL INTTOOCTAL)
			      (OCTAL3 INTTOOCTAL3)
			      (HEX INTTOHEX)
			      (DISPLAYPROPS ((QUOTE (OCTAL HEX])

(INTTOOCTAL
  [GLAMBDA (N:INTEGER)                          (* GSN "25-FEB-83 17:15"
)
    (RESULT STRING)
    (PROG ((NBITS N:WORDSIZE)
	   LST)
          (WHILE NBITS>0
	     DO [LST+←(CAR (NTH (QUOTE ("0" "1" "2" "3" "4" "5" "6" "7")
				       )
				(ADD1 (LOGAND N 7]
		(N←(LRSH N 3))
		NBITS←-3)
          (RETURN (APPLY (FUNCTION CONCAT)
			 LST])

(INTTOOCTAL3
  [GLAMBDA (N:INTEGER)                          (* GSN "25-FEB-83 17:35"
)
    (RESULT STRING)
    (PROG ((NDIGITS 3)
	   LST)
          (WHILE NDIGITS>0
	     DO [LST+←(CAR (NTH (QUOTE ("0" "1" "2" "3" "4" "5" "6" "7")
				       )
				(ADD1 (LOGAND N 7]
		(N←(LRSH N 3))
		NDIGITS←-1)
          (RETURN (APPLY (FUNCTION CONCAT)
			 LST])
)
(INTTOINIT)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (252 1768 (INTTOHEX 262 . 666) (INTTOINIT 668 . 1056) (INTTOOCTAL 1058 . 1412) (
INTTOOCTAL3 1414 . 1766)))))
STOP