;; -*- coding: utf-8 -*-

(FORMAT *TRACE-OUTPUT* "~&Loading informatimago.lisp~%")

(DEFPARAMETER *NOT-PRIVATE* '())

(DEFUN CONCAT (&REST ARGS)
  (APPLY (FUNCTION CONCATENATE) 'STRING
         (MAPCAR (LAMBDA (ITEM)
                   (IF (TYPEP ITEM 'SEQUENCE)
                       ITEM
                       (FORMAT NIL "~A" ITEM))) ARGS)))


(SETF *ZONE-DIR*
      (MERGE-PATHNAMES
       (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "test")) (EXT:CD)))
(SETF *ZONE-DIR*
      (MERGE-PATHNAMES
       (MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE "var" "lib" "named")) (EXT:CD)))

(SETF *CONF-DIR* *ZONE-DIR*)


(DEFPARAMETER *SERIAL-DATA-FILE*
  (MERGE-PATHNAMES (MAKE-PATHNAME :NAME "serial" :TYPE "data") *ZONE-DIR*))
(DEFPARAMETER SERIAL (NEXT-SERIAL *SERIAL-DATA-FILE*))

(RESET)

(REGISTER-REVERSE '(174 93 62)       'INFORMATIMAGO.COM)
(REGISTER-REVERSE '(114 85 195)  'LAN.INFORMATIMAGO.COM)
(REGISTER-REVERSE '(166 168 192) 'LAN.YUCAS.OGAMITA.ORG)
(PUSH '(192 168 166)     *NOT-PRIVATE*)
(PUSH '(192 168 167)     *NOT-PRIVATE*)

(ADD-NAME          'DNS0.AFAA.ASSO.FR  '195.114.85.138)
(ADD-NAME          'DNS1.AFAA.ASSO.FR  '195.114.85.139)
(ADD-NAME 'INFORMATIMAGO.AFAA.ASSO.FR  '62.93.174.78)
(add-name    'intergruas.afaa.asso.fr  '62.93.173.252)

(DEFMACRO DEFINE-SOA (DOMAIN)
  `(DEFINE-ZONE ,DOMAIN
       ('INFORMATIMAGO.AFAA.ASSO.FR     ; primary dns
        'INFORMATIMAGO.TERRA.ES
        SERIAL
        "1H" #|refresh|# "1H" #|retry|#  "6W" #|expire|# "300" #|default-ttl|#)
     ;; secondary dns:
     'DNS0.AFAA.ASSO.FR
     'DNS1.AFAA.ASSO.FR
     'intergruas.afaa.asso.fr))

;;;------------------------------------------------------------------------
;;; informatimago.com
;;;------------------------------------------------------------------------

(DEFINE-SOA '174.93.62.IN-ADDR.ARPA)

(ADD-RECORD '76.174.93.62.IN-ADDR.ARPA '(PTR NAIAD.INFORMATIMAGO.COM))
(ADD-RECORD '77.174.93.62.IN-ADDR.ARPA '(PTR ROUTER-ADSL-PPP.INFORMATIMAGO.COM))
(ADD-RECORD '78.174.93.62.IN-ADDR.ARPA '(PTR LARISSA.INFORMATIMAGO.COM))
(ADD-RECORD '79.174.93.62.IN-ADDR.ARPA '(PTR THALASSA.INFORMATIMAGO.COM))
(ADD-RECORD '68.174.93.62.IN-ADDR.ARPA '(PTR LASSELL.INFORMATIMAGO.COM))

(DEFINE-SOA '76-79.174.93.62.IN-ADDR.ARPA)

(ADD-RECORD '76.76-79.174.93.62.IN-ADDR.ARPA '(PTR NAIAD.INFORMATIMAGO.COM))
(ADD-RECORD '77.76-79.174.93.62.IN-ADDR.ARPA '(PTR ROUTER-ADSL-PPP.INFORMATIMAGO.COM))
(ADD-RECORD '78.76-79.174.93.62.IN-ADDR.ARPA '(PTR LARISSA.INFORMATIMAGO.COM))
(ADD-RECORD '79.76-79.174.93.62.IN-ADDR.ARPA '(PTR THALASSA.INFORMATIMAGO.COM))




(DEFINE-SOA '168.192.IN-ADDR.ARPA)

;; (defparameter *not-private-hash* (make-hash-table :test (function equal)))
;; (dolist (e *not-private*) (setf (gethash e *not-private-hash*) e))

;;; Cannot do that for *** - No more room for LISP objects
;;;
;;; (format *trace-output* "~&Adding 65536 names in priv.informatimago.com...~&")
;;; (dotimes (h 256)
;;;   (unless (member (list 192 168 h) *not-private* :test (function equal))
;;;     ;;(gethash (list 192 168 h) *not-private-hash*)
;;;     (dotimes (l 256)
;;;       (unless (member (list 192 168 h l) *not-private* :test (function equal))
;;;         ;; (gethash (list 192 168 h l) *not-private-hash*)
;;;         (ADD-NAME
;;;           (name-append l h 'priv.informatimago.com)
;;;           (name-append '|192.168| h l))))))
;;; (format *trace-output* "~&Done~&")



;;;
;;; informatimago.com
;;;

(DEFINE-SOA 'INFORMATIMAGO.COM)

(ADD-RECORD 'INFORMATIMAGO.COM
            '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS)

(ADD-RECORD 'INFORMATIMAGO.COM
            '(MX 20 SMTP.CULTURESFRANCE.COM)   :INFERIORS)

(ADD-RECORD 'LOCALHOST.INFORMATIMAGO.COM '(A 127.0.0.1))


(MAP NIL
     (LAMBDA (NAME ADDR) (ADD-NAME (NAME-APPEND NAME 'INFORMATIMAGO.COM) ADDR))
     '(
       ROUTER-ADSL     ROUTER-ISDN     AP-WIFI-NEXT    LASSELL
       TRITON          PROTEUS
       NAIAD           ROUTER-ADSL-PPP LARISSA         THALASSA        )
     '(
       62.93.174.65    62.93.174.66    62.93.174.67    62.93.174.68
       62.93.174.76    62.93.174.76
       62.93.174.76    62.93.174.77    62.93.174.78    62.93.174.79    ))

(ADD-RECORD '76.INFORMATIMAGO.COM  '(A 62.93.174.76))
(ADD-RECORD '77.INFORMATIMAGO.COM  '(A 62.93.174.77))
(ADD-RECORD '78.INFORMATIMAGO.COM  '(A 62.93.174.78))
(ADD-RECORD '79.INFORMATIMAGO.COM  '(A 62.93.174.79))

(MAP NIL (LAMBDA (X)  (MAP NIL (LAMBDA (NAME)
                                 (ADD-RECORD (NAME-APPEND NAME 'INFORMATIMAGO.COM)
                                             (LIST 'CNAME (CAR X))))
                           (CDR X)))
     '((LARISSA.INFORMATIMAGO.COM     CVS FTP IMAP MAIL POP SMTP WWW)
       (THALASSA.INFORMATIMAGO.COM    IRC LDAP NEWS NTP PH PRINTER LISTS
        DARCS
        DARCS.WIZARDS DEVELOP.WIZARDS
        WWW.WIZARDS)
       (NAIAD.INFORMATIMAGO.COM       VM-370)
       (ftp.culturesfrance.com        mirrors)))

;;;
;;; lan.informatimago.com
;;;

(DEFPARAMETER BASE-LAN.INFORMATIMAGO.COM   '195.114.85.192)
(DEFPARAMETER DOMAIN-LAN.INFORMATIMAGO.COM 'LAN.INFORMATIMAGO.COM)
(DEFPARAMETER NAMES-LAN.INFORMATIMAGO.COM
  '( LOCAL
    NAIAD GALATEA DESPINA NEREIDE LARISSA THALASSA PROTEUS TRITON
    KUIPER LASSELL VOYAGER-2 LE-VERRIER GALLE HUBBLE
    BROADCAST ))

(LET ((BASE    BASE-LAN.INFORMATIMAGO.COM)
      (NAMES   NAMES-LAN.INFORMATIMAGO.COM)
      (DOMAIN  DOMAIN-LAN.INFORMATIMAGO.COM))
  (MAP NIL (LAMBDA (NAME ADDRESS)
             (ADD-NAME (NAME-APPEND NAME DOMAIN) ADDRESS))
       NAMES
       (MAKE-ADDRESS-SEQ BASE (LENGTH NAMES)))
  (ADD-RECORD (NAME-APPEND 'ROUTER DOMAIN)
              (LIST 'CNAME (NAME-APPEND 'HUBBLE DOMAIN))))





(PUSH '(192 168 0) *NOT-PRIVATE*)
;; next will be 192.168.164.x
(LET ((DOM 'WIFI.INFORMATIMAGO.COM))
  (ADD-NAME (NAME-APPEND 'AP DOM) '|192.168.0.50|)
  ;; (add-record 'ap-wifi.informatimago.com `(cname ,(name-append 'ap dom)))
  (DOTIMES (L 256)
    (UNLESS (OR (MEMBER L '(50)) (<= 64 L 127))
      (ADD-NAME (NAME-APPEND (CONCAT 'WIFI- L) DOM)
                (NAME-APPEND '|192.168.0| L))))
  (DOTIMES (L 64)
    (ADD-NAME
     (NAME-APPEND (CONCAT 'COLIBRI- (+ 64 L)) DOM)
     (NAME-APPEND '|192.168.0| (+ 64 L)))))


(PUSH '(192 168 197)     *NOT-PRIVATE*)
(PUSH '(192 168 255 197) *NOT-PRIVATE*)
(LET ((DOM 'THESSALY.INFORMATIMAGO.COM))
  ;; thessaly = larissa virtual network: 192.168.197.x <-> 192.168.255.197
  (ADD-NAME (NAME-APPEND 'LARISSA DOM)   '192.168.255.197)
  (ADD-NAME (NAME-APPEND 'LARITOO DOM)   '192.168.197.1)
  (ADD-NAME (NAME-APPEND 'LOCALHOST DOM) '192.168.197.0)
  (ADD-NAME (NAME-APPEND 'BROADCAST DOM) '192.168.197.255)
  (DOTIMES (L 253)
    (ADD-NAME (NAME-APPEND (CONCAT 'LARIVIRT- (+ L 2)) DOM)
              (NAME-APPEND '192.168.197 (+ L 2)))))


;;;
;;; bolet.informatimago.com
;;;

(ADD-RECORD 'BOLET.INFORMATIMAGO.COM
            '(MX 10 BOLET.NO-IP.COM)           :INFERIORS)

(ADD-RECORD 'BOLET.INFORMATIMAGO.COM
            '(MX 30 LARISSA.INFORMATIMAGO.COM) :INFERIORS)

;; (ADD-RECORD 'BOLET.INFORMATIMAGO.COM '(cname bolet.no-ip.com))
;; Cannot have bot CNAME and another record, like MX.

(ADD-RECORD 'LOCALHOST.BOLET.INFORMATIMAGO.COM '(A 127.0.0.1))

(MAP NIL (LAMBDA (X) (MAP NIL
                          (LAMBDA (NAME)
                            (ADD-RECORD (NAME-APPEND NAME 'BOLET.INFORMATIMAGO.COM)
                                        (LIST 'CNAME (CAR X))))
                          (CDR X)))
     '((BOLET.NO-IP.COM  CVS FTP IMAP MAIL POP SMTP WWW
        IRC LDAP NEWS NTP PH PRINTER
        PINAUD RUSSULE CALVADOS)))


;;;------------------------------------------------------------------------
;;; OGAMITA.ORG
;;;------------------------------------------------------------------------

(DEFINE-SOA 'OGAMITA.ORG)

(ADD-RECORD 'OGAMITA.ORG
            '(LOC   37 37 30 N   0 46 30 W   30M)   :INFERIORS)

(ADD-RECORD 'OGAMITA.ORG
            '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS)

(ADD-RECORD 'OGAMITA.ORG
            '(MX 100 SMTP.CULTURESFRANCE.COM)      :INFERIORS)

(ADD-RECORD           'OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD       'FTP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD       'WWW.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD       'POP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD      'IMAP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD      'SMTP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD 'LOCALHOST.OGAMITA.ORG '(A 127.0.0.1))


(ADD-RECORD                 'pjb.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD                'ccib.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD    'ingridbetancourt.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD               'etysm.OGAMITA.ORG '(A 62.93.174.78)) ; larissa
(ADD-RECORD 'eltoreroysusmujeres.OGAMITA.ORG '(A 62.93.174.78)) ; larissa



;;;
;;; bolet.ogamita.org
;;;

(ADD-RECORD 'BOLET.OGAMITA.ORG
            '(MX 10 BOLET.NO-IP.COM)           :INFERIORS)

(ADD-RECORD 'BOLET.OGAMITA.ORG
            '(MX 30 LARISSA.OGAMITA.ORG) :INFERIORS)

;; (ADD-RECORD 'BOLET.OGAMITA.ORG '(cname bolet.no-ip.com))
;; Cannot have bot CNAME and another record, like MX.

(ADD-RECORD 'LOCALHOST.BOLET.OGAMITA.ORG '(A 127.0.0.1))

(MAP NIL (LAMBDA (X) (MAP NIL
                          (LAMBDA (NAME)
                            (ADD-RECORD (NAME-APPEND NAME 'BOLET.OGAMITA.ORG)
                                        (LIST 'CNAME (CAR X))))
                          (CDR X)))
     '((BOLET.NO-IP.COM  CVS FTP IMAP MAIL POP SMTP WWW
        IRC LDAP NEWS NTP PH PRINTER
        PINAUD RUSSULE CALVADOS)))



;;;
;;; saubot.ogamita.org
;;;

(ADD-RECORD 'SAUBOT.OGAMITA.ORG
            '(MX 10 LARISSA.OGAMITA.ORG) :INFERIORS)

(ADD-RECORD 'SAUBOT.OGAMITA.ORG
            '(MX 30 SMTP.CULTURESFRANCE.COM)           :INFERIORS)

(ADD-RECORD 'LOCALHOST.SAUBOT.OGAMITA.ORG '(A 127.0.0.1))

(MAP NIL (LAMBDA (X)
           (MAP NIL
                (LAMBDA (NAME)
                  (ADD-RECORD (NAME-APPEND NAME 'SAUBOT.OGAMITA.ORG)
                              (LIST 'CNAME (CAR X))))
                (CDR X)))
     '((OLORON-SAUBOT.DYNDNS.ORG    GUARDACASA  OLORON  MXOL)
       (NEPTUNE-SAUBOT.DYNDNS.ORG   NEPTUNE     PARIS)
       (PLUTON-SAUBOT.DYNDNS.ORG    PLUTON      TIBOOK)
       ))


;;;
;;; derobert.ogamita.org
;;;

(ADD-RECORD 'YUCAS.OGAMITA.ORG
            '(MX 10 LARISSA.OGAMITA.ORG) :INFERIORS)

(ADD-RECORD 'YUCAS.OGAMITA.ORG
            '(MX 30 SMTP.CULTURESFRANCE.COM)   :INFERIORS)

(ADD-RECORD 'LOCALHOST.YUCAS.OGAMITA.ORG '(A 127.0.0.1))

(LOOP
   :FOR (NAME ADDRESS)
   :IN '((HASHI         192.168.166.1)
         (CHARMING      192.168.166.64)
         (BAUXITE       192.168.166.65)
         (NAIAD         192.168.166.190)
         (TRITON        192.168.166.191)
         ;; ----------------------------
         (GRAPHITE      192.168.166.192)
         (MARE-AZUL     192.168.166.193)
         (BLANCHE-NEIGE 192.168.166.194))
   :DO (ADD-RECORD (NAME-APPEND NAME 'LAN.YUCAS.OGAMITA.ORG) ADDRESS))



#||
(MAP NIL (LAMBDA (X)
           (MAP NIL
                (LAMBDA (NAME)
                  (ADD-RECORD (NAME-APPEND NAME 'YUCAS.OGAMITA.ORG)
                              (LIST 'CNAME (CAR X))))
                (CDR X)))
     '((OLORON-YUCAS.DYNDNS.ORG    GUARDACASA  OLORON  MXOL)
       (NEPTUNE-YUCAS.DYNDNS.ORG   NEPTUNE     PARIS)
       (PLUTON-YUCAS.DYNDNS.ORG    PLUTON      TIBOOK)
       ))
||#


;;;------------------------------------------------------------------------
;;; OGAMITA.COM, OGAMITA.EU, OGAMITA.DE
;;;------------------------------------------------------------------------

(DEFMACRO DO-OGAMITA ((DOMAIN) &BODY BODY)
  `(LOOP :FOR ,DOMAIN :IN '(OGAMITA.COM OGAMITA.EU OGAMITA.DE)
      :DO (LET ((,DOMAIN ,DOMAIN)) ,@BODY)))

(DO-OGAMITA (DOM)

  (DEFINE-SOA DOM)

  (ADD-RECORD DOM  '(MX  10 SMTP.OGAMITA.COM) :INFERIORS)
  ;; (ADD-RECORD DOM  '(MX  10 LARISSA.INFORMATIMAGO.COM) :INFERIORS)
  ;; (ADD-RECORD DOM  '(MX 100 SMTP.CULTURESFRANCE.COM)   :INFERIORS)

  (LET ((NETLOPE  '85.10.210.113)
        (LARISSA  '62.93.174.78)
        (THALASSA '62.93.174.79))
    (declare (ignorable netlope larissa thalassa))

    (ADD-RECORD                         DOM  `(A ,NETLOPE))
    (ADD-RECORD (NAME-APPEND       'FTP DOM) `(A ,NETLOPE))
    (ADD-RECORD (NAME-APPEND       'WWW DOM) `(A ,NETLOPE))

    (ADD-RECORD (NAME-APPEND     'DARCS DOM) `(A ,THALASSA))
    (ADD-RECORD (NAME-APPEND   'WIZARDS DOM) `(A ,THALASSA))
    (ADD-RECORD (NAME-APPEND   'mirrors DOM) `(cname ftp.culturesfrance.com))

    (ADD-RECORD (NAME-APPEND       'POP DOM) `(A ,netlope))
    (ADD-RECORD (NAME-APPEND      'IMAP DOM) `(A ,netlope))
    (ADD-RECORD (NAME-APPEND      'SMTP DOM) `(A ,netlope))
    (ADD-RECORD (NAME-APPEND 'LOCALHOST DOM) '(A 127.0.0.1))

    (LOOP :FOR FRIENDS :IN '(FRIENDS FREUNDE AMIS AMIGOS AMICI PRIIATELI)
       :DO
       ;; russian (mozilla-string "\x{043F}\x{0440}\x{0438}\x{044F}\x{0442}\x{0435}\x{043B}\x{044C}")
       ;; esperanto amikoj?
       ;; arab \x{0627}\x{0644}\x{0627}\x{0635}\x{062F}\x{0642}\x{0627}\x{0621}
       ;; japanese \x{53CB}\x{4EBA}
       ;; korean \x{CE5C}\x{AD6C}
       ;; chinese \x{670B}\x{53CB}
       (ADD-RECORD (NAME-APPEND   FRIENDS DOM) `(A ,NETLOPE)))
    ))



;; ;;;------------------------------------------------------------------------
;; ;;; JOELLEGYMTONIC.FR
;; ;;;------------------------------------------------------------------------
;;
;; (DEFINE-SOA 'JOELLEGYMTONIC.FR)
;;
;; (ADD-RECORD 'JOELLEGYMTONIC.FR
;;             '(LOC   37 37 30 N   0 46 30 W   30M)   :INFERIORS)
;;
;; (ADD-RECORD 'JOELLEGYMTONIC.FR
;;             '(MX  10 LARISSA.INFORMATIMAGO.COM) :INFERIORS)
;;
;; (ADD-RECORD 'JOELLEGYMTONIC.FR
;;             '(MX 100 SMTP.CULTURESFRANCE.COM)   :INFERIORS)
;;
;; (ADD-RECORD           'JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; thalassa
;; (ADD-RECORD       'FTP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; thalassa
;; (ADD-RECORD       'WWW.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; thalassa
;; (ADD-RECORD       'POP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; larissa
;; (ADD-RECORD      'IMAP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; larissa
;; (ADD-RECORD      'SMTP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; larissa
;; (ADD-RECORD 'LOCALHOST.JOELLEGYMTONIC.FR '(A 127.0.0.1))




;;;------------------------------------------------------------------------
;;; parroquias-manga.org
;;;------------------------------------------------------------------------

(DEFINE-SOA 'PARROQUIAS-MANGA.ORG)

(ADD-RECORD 'PARROQUIAS-MANGA.ORG
            '(LOC   37 37 30 N   0 46 30 W   30M)   :INFERIORS)



(ADD-RECORD 'PARROQUIAS-MANGA.ORG
            '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS)

(ADD-RECORD 'PARROQUIAS-MANGA.ORG
            '(MX 100 SMTP.CULTURESFRANCE.COM)  :INFERIORS)

(ADD-RECORD 'LOCALHOST.PARROQUIAS-MANGA.ORG '(A 127.0.0.1))

(ADD-RECORD 'PARROQUIAS-MANGA.ORG           '(A 62.93.174.79))
(ADD-RECORD 'WWW.PARROQUIAS-MANGA.ORG       '(A 62.93.174.79))
(ADD-RECORD 'FTP.PARROQUIAS-MANGA.ORG       '(A 62.93.174.79))
(ADD-RECORD 'LISTS.PARROQUIAS-MANGA.ORG     '(A 62.93.174.79))

(ADD-RECORD 'MAIL.PARROQUIAS-MANGA.ORG      '(A 62.93.174.78))
(ADD-RECORD 'IMAP.PARROQUIAS-MANGA.ORG      '(A 62.93.174.78))
(ADD-RECORD 'POP.PARROQUIAS-MANGA.ORG       '(A 62.93.174.78))
(ADD-RECORD 'SMTP.PARROQUIAS-MANGA.ORG      '(A 62.93.174.78))

;; (MAP NIL (LAMBDA (X)
;;            (MAP NIL (LAMBDA (NAME)
;;                       (ADD-RECORD (NAME-APPEND NAME 'PARROQUIAS-MANGA.ORG)
;;                                   (LIST 'CNAME (CAR X))))
;;                 (CDR X)))
;;      '((THALASSA.INFORMATIMAGO.COM  CVS FTP IMAP MAIL POP SMTP WWW)))



;;;------------------------------------------------------------------------

(DEFUN DNS-WALK (NODE PATH FUN)
  (SETQ PATH (IF PATH
                 (FORMAT NIL "~A.~A" (DOMAIN-NAME NODE) PATH)
                 (DOMAIN-NAME NODE)))
  (MAPCAR (LAMBDA (RECORD) (FUNCALL FUN PATH RECORD))
          (DOMAIN-RECORDS NODE))
  (MAPCAR (LAMBDA (CHILD) (DNS-WALK CHILD PATH FUN))
          (DOMAIN-CHILDREN NODE))) ;;DNS-WALK


(DEFUN GENERATE ()
  (FORMAT *TRACE-OUTPUT* "~&Generating zone files...~&")
  (GENERATE-FILES "public" "informatimago"
                  ;; master servers for slave zones:
                  '(62.93.174.78)))


(FORMAT *TRACE-OUTPUT* "~&Loaded  informatimago.lisp~%")


;; Local Variables:
;; eval: (put 'dotimes 'lisp-indent-function 1)
;; eval: (put 'DOTIMES 'lisp-indent-function 1)
;; eval: (put 'do-ogamita 'lisp-indent-function 1)
;; eval: (put 'DO-OGAMITA 'lisp-indent-function 1)
;; End:

;;;; informatimago.lisp               --                     --          ;;;;
ViewGit