Carl Shapiro pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/vars.c
    ... ... @@ -128,6 +128,10 @@ make_var(char *name, boolean perm)
    128 128
     	name = buffer;
    
    129 129
         }
    
    130 130
         var->name = (char *) malloc(strlen(name) + 1);
    
    131
    +    if (var->name == NULL) {
    
    132
    +	perror("malloc");
    
    133
    +	exit(1);
    
    134
    +    }
    
    131 135
         strcpy(var->name, name);
    
    132 136
         var->clock = 0;
    
    133 137
         var->permanent = perm;