File: goops-classes.thb

package info (click to toggle)
theme-d 7.2.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 21,036 kB
  • sloc: lisp: 9,625; sh: 5,321; makefile: 715; ansic: 477
file content (10 lines) | stat: -rw-r--r-- 318 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
 
;; Copyright (C) 2016, 2021 Tommi Höynälänmaa

;; The result type safety of the following procedures has been checked:
;;   get-raw-goops-class

(define-body (standard-library goops-classes)

  (add-method get-raw-goops-class
    (unchecked-prim-proc reverse-get-goops-class (<class>) <raw-goops-class>
			 pure)))