blob: 16bb7d5e4fda92debb424c998bd470e72d892075 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;*=====================================================================*/
;* serrano/prgm/project/skribe/src/bigloo/new.sch */
;* ------------------------------------------------------------- */
;* Author : Manuel Serrano */
;* Creation : Sun Aug 17 11:58:30 2003 */
;* Last change : Wed Sep 10 11:14:15 2003 (serrano) */
;* Copyright : 2003 Manuel Serrano */
;* ------------------------------------------------------------- */
;* The new facility */
;*=====================================================================*/
;*---------------------------------------------------------------------*/
;* new ... */
;*---------------------------------------------------------------------*/
(define-macro (new id . inits)
`(,(symbol-append 'instantiate::% id) ,@inits))
|
