fork download
copy 
  1. (defpackage :interface-package
  2.   (:use :cl)
  3.   (:export :foo :bar))
  4. (in-package :interface-package)
  5.  
  6.  
  7. (defgeneric foo (obj something))
  8. (defgeneric bar (obj something))
  9.  
  10.  
  11. (defpackage :not-static-dep
  12.   (:use :cl :interface-package)
  13.   (:export :AB :BC))
  14. (in-package :not-static-dep)
  15.  
  16.  
  17. (defclass AB ()
  18.   ((nnn :initarg :nnn
  19.         :type number
  20.         :reader nnn)))
  21.  
  22.  
  23. (defmethod interface-package:foo ((obj AB) (smth number))
  24.   (format t "FOO for AB: ~A ~A~&" (nnn obj) smth))
  25.  
  26.  
  27. (defmethod interface-package:bar ((obj AB) (smth number))
  28.   (format t "BAR for AB: ~A ~A~&" (nnn obj) smth))
  29.  
  30.  
  31. (defclass BC ()
  32.   ((mmm :initarg :mmm
  33.         :type number
  34.         :reader mmm)))
  35.  
  36.  
  37. (defmethod interface-package:foo ((obj BC) (smth number))
  38.   (format t "FOO for BC: ~A ~A~&" (mmm obj) smth))
  39.  
  40.  
  41. (defmethod interface-package:bar ((obj BC) (smth number))
  42.   (format t "BAR for BC: ~A ~A~&" (mmm obj) smth))
  43.  
  44.  
  45. (defpackage :some-another-package
  46.   (:use :cl)
  47.   (:export :fuck-the-shit))
  48. (in-package :some-another-package)
  49.  
  50.  
  51. (defun fuck-the-shit (object fun)
  52.   (funcall fun object 31337))
  53.  
  54.  
  55. (defpackage :usage-of-it
  56.   (:use :cl :interface-package :not-static-dep :some-another-package))
  57. (in-package :usage-of-it)
  58.  
  59.  
  60. (defparameter ab (make-instance 'AB :nnn 42))
  61. (defparameter bc (make-instance 'BC :mmm 777))
  62.  
  63.  
  64. (fuck-the-shit ab #'foo)
  65. (fuck-the-shit bc #'foo)
  66. (fuck-the-shit ab #'bar)
  67. (fuck-the-shit bc #'bar)
  68.  
Success #stdin #stdout 0.01s 31240KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
FOO for AB: 42 31337
FOO for BC: 777 31337
BAR for AB: 42 31337
BAR for BC: 777 31337
https://ideone.com/YZWPDA
language:
Common Lisp (sbcl 1.4.16)
created:
9 days ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!