Changeset 8972


Ignore:
Timestamp:
04/23/05 16:17:07 (16 years ago)
Author:
piso
Message:

COPY-TREE: %CAR, %CDR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/list.lisp

    r2722 r8972  
    11;;; list.lisp
    22;;;
    3 ;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: list.lisp,v 1.42 2003-07-02 17:51:15 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: list.lisp,v 1.43 2005-04-23 16:17:07 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3838(defun copy-tree (object)
    3939  (if (consp object)
    40       (cons (copy-tree (car object)) (copy-tree (cdr object)))
     40      (cons (copy-tree (%car object)) (copy-tree (%cdr object)))
    4141      object))
    4242
Note: See TracChangeset for help on using the changeset viewer.