home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / fd / amigaguide.affi next >
Text File  |  1977-12-31  |  1KB  |  25 lines
  1. (in-package "AFFI")
  2. (declare-library-base :AMIGAGUIDEBASE "amigaguide.library")
  3. (format *error-output* "~&;;; Warning: Please adapt the prototypes for ~S manually!~%" "amigaguide.library")
  4.  
  5. ;(defflibfun 'LOCKAMIGAGUIDEBASE 'AMIGAGUIDEBASE -36 #x9 '* '*)
  6. ;(defflibfun 'UNLOCKAMIGAGUIDEBASE 'AMIGAGUIDEBASE -42 #x1 '* '*)
  7. ;(defflibfun 'OPENAMIGAGUIDEA 'AMIGAGUIDEBASE -54 #xA9 '* '* '*)
  8. ;(defflibfun 'OPENAMIGAGUIDEASYNCA 'AMIGAGUIDEBASE -60 #x19 '* '* '*)
  9. ;(defflibfun 'CLOSEAMIGAGUIDE 'AMIGAGUIDEBASE -66 #x9 '* '*)
  10. ;(defflibfun 'AMIGAGUIDESIGNAL 'AMIGAGUIDEBASE -72 #x9 '* '*)
  11. ;(defflibfun 'GETAMIGAGUIDEMSG 'AMIGAGUIDEBASE -78 #x9 '* '*)
  12. ;(defflibfun 'REPLYAMIGAGUIDEMSG 'AMIGAGUIDEBASE -84 #x9 '* '*)
  13. ;(defflibfun 'SETAMIGAGUIDECONTEXTA 'AMIGAGUIDEBASE -90 #x219 '* '* '* '*)
  14. ;(defflibfun 'SENDAMIGAGUIDECONTEXTA 'AMIGAGUIDEBASE -96 #x19 '* '* '*)
  15. ;(defflibfun 'SENDAMIGAGUIDECMDA 'AMIGAGUIDEBASE -102 #x219 '* '* '* '*)
  16. ;(defflibfun 'SETAMIGAGUIDEATTRSA 'AMIGAGUIDEBASE -108 #xA9 '* '* '*)
  17. ;(defflibfun 'GETAMIGAGUIDEATTR 'AMIGAGUIDEBASE -114 #xA91 '* '* '* '*)
  18. ;(defflibfun 'LOADXREF 'AMIGAGUIDEBASE -126 #xA9 '* '* '*)
  19. ;(defflibfun 'EXPUNGEXREF 'AMIGAGUIDEBASE -132 #x0 '*)
  20. ;(defflibfun 'ADDAMIGAGUIDEHOSTA 'AMIGAGUIDEBASE -138 #xA19 '* '* '* '*)
  21. ;(defflibfun 'REMOVEAMIGAGUIDEHOSTA 'AMIGAGUIDEBASE -144 #xA9 '* '* '*)
  22. ;(defflibfun 'GETAMIGAGUIDESTRING 'AMIGAGUIDEBASE -210 #x1 '* '*)
  23.  
  24. (provide "amigaguide.library")
  25.