l-operation.lisp 258 Bytes
Newer Older
1
(cl:defpackage :l-operation
2
  (:use :asdf :uiop :cl) ;; asdf/package-inferred-system dependencies
3 4 5 6 7 8 9 10 11 12
  (:export #:op #:*x*))

(cl:in-package :l-operation)

(defparameter *x* 0)

(defclass op (load-op) ())

(defmethod perform :after ((o op) (c t))
  (incf *x*))